Задача 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.