Нужно составить программу в Paskal ' e для нахождения суммы ряда нечётных чисел с использованием for...to, где n - количество чисел, i - число для цикла, summa - сумма чисел.
Answers & Comments
sasha58russs
Summa:=0; for i:=1 to n do if a[i]mod 2 <>0 then summa:=a[i]+summa; end.
1 votes Thanks 1
elizaveta11s
надо через тип Integer, а не через boolean, но всё равно спасибо
Answers & Comments
for i:=1 to n do
if a[i]mod 2 <>0 then summa:=a[i]+summa;
end.