Дана последовательность из n целых чисел. Найти сумму нечётных элементов этой последовательности.
Program work;Var chisla:array [1..n] of integer; sum, i:integer;BeginFor i:=1 to n doBeginIf chisla [i] mod 2 <>0 thenSum:=sum+chisla[i];End;Writeln (sum);End.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
