Question

Вычислите сумму всех нечетных чисел из десяти вводимых.

В паскале.

 

Answer 1

var n,a,i,k:integer;
begin
read(n);
k:=0;
for i:=1 to n do begin read(a);if a mod 2<>0 then k:=k+a;
end;
write(k);
end.