Написать программу которая определяет количество нечетных чисел среди заданных целых чисел n,помогите Пожалуйста!

1

Ответы и объяснения

2014-02-03T12:49:41+04:00
Var a,n,c,s:integer;
begin
readln (n);
for a:=1 to n do
begin
readln (c);
if c mod 2 > 0 then s:=s+1;
end;
writeln(s);
end.

Пишу  с телефона