Вопрос от пользователя: Полюня
Написать программу в Pascal. Найти сумму 10 нечетных чисел.
Ответ: Дарья
Program fofgogjoj;
Var a: array [1 … 100] of integer;
i, n, s: integer;
Begin
s:=0;
n:=19;
for i:=1 to n do
begin
a[i]:=i;
if i mod 2=1 then s:=s+a[i];
end;
Writeln (‘Сумма 10 ти нечетных чисел равна: ‘, s);
End.
