Question

Дана последовательность из n целых чисел. Найти сумму нечётных элементов этой последовательности.

Answer 1

Program work; Var chisla:array [1..n] of integer; sum, i:integer; Begin For i:=1 to n do Begin If chisla [i] mod 2 <>0 then Sum:=sum+chisla[i]; End; Writeln (sum); End.