Question

Нужно составить программу в Paskal ' e для нахождения суммы ряда нечётных чисел с использованием for...to, где n - количество чисел, i - число для цикла, summa - сумма чисел.

Answer 1

summa:=0;
for i:=1 to n do
if a[i]mod 2 <>0 then summa:=a[i]+summa;
end.

Answer 2

надо через тип Integer, а не через boolean, но всё равно спасибо