Дана последовательность из n целых чисел. Найти сумму нечётных элементов этой последовательности.
Answers & Comments
renser
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.
Answers & Comments