Question

ввести с клавиатуры 10 целых чисел. Посчитать количество нечетных. (паскаль)

Answer 1

cost=10;
var a:array[1..N] of integer;
i, s: integer;
for I:=1 to N do
readln (a[i]);
s:=0;
if a[i] mob 2 <> 0 then
s:=s+1;
writeln ('s=' , s);
end.