Задача 3-1 Дано N цілих чисел. Знайти кількість парних серед них. ТУ. У першому рядку стандартного вхідного потоку міститься N (N<1000)-кількість чисел У наступному рядку через пропуск дано самі числа У стандартний вихідний потік вивести кількість парних чисел. Bхідні дані 5
12 4 2 7 9 Вихідні дані 3​

Прикрепленный файл кинь в одну папку с программой. Иначе, выдаст ошибку (...что-то там... файл ('input1.txt') не найден... что-то там...).

Удачи, дружище!

Объяснение:

var i,count:integer;

f,g:text;

begin

assign(f,'input1.txt');

assign(g,'output.txt');

reset(f);

rewrite(g);

while not eoln(f) do

begin

read(f,i);

if not odd(i)

then

count:=count+1;

end;

write(g,count);

close(f);

close(g);

end.