program n_1;
var n, i, m, s: integer;
begin
s:=0;
read(n);
for i:=1 to n do begin
read(m);
if m mod 2 = 0 then s:=s+1;
end;
writeln(s);
end.
Var N: integer; sum: real; begin write('Введите количество чисел: '); readln(N); write('Введите числа: '); sum := 0; for var i := 1 to N do begin var x := ReadReal; sum += x; end; writeln('Сумма введенных чисел = ',sum); end.