Question

Дано 10 чисел найти сумму нечётных чисел? Pascal

Answer 1

program fgh;

var i, s, n, a:integer;

begin

s:=0;

writeln('введите 10 чисел');

for i:= 1 to 10 do

begin

readln(a);

if a mod 2 <> 0 then

s:=s+a;

end;

writeln('сумма= ', s);

end.