Есть задача: Среди N введенных целых чисел выяснить количество четных.



есть проблемка, в теле цикла выполняется только read (d) оператор , после того как цикл завершается последнее значение то что было введено d проверяется на четность и соответственно результат зависит от того какое я последнее число ввел если четное то четных 1 если нечетное, то четных 0!
как сделать чтобы он каждое введенное мною число проверял на четность и накапливал в переменной C ?

В заранее очень благодарен!

Нужно подсчет заключить в цикл. Пишу с телефона, поэтому не могу код привести. После команды do ставь begin, а после с:=с+1 ставь end;
И еще - перед началом цикла поставь с:=0;

program primer;
uses crt;
var n,c:integer;
z:boolean;
begin
writeln ('vvesti N');
read (n);
for i:=1 to n do
begin
read (d);
z:=odd(d);
if z=false then c:=c+1;
end;
writeln ('kolichestvo chetnux=', c);
readkey;
clrscr
end.

Intelator Hynix
огромное вам спасибо !!! Все получилось.