uses crt; var f:text; n,i,count:longint; a:array[1..1000]of longint; begin clrscr; readln(n); for i:=1 to n do read(a[i]); assign(f,'dulieu.out');rewrite(f); for i:=1 to n do if a[i] mod 2=0 then inc(count); write(f,count); close(f); readln; readln; end.
program bai_giai; var f,g:text; n,d:longint; begin Assign(f,'dulieu.inp'); reset(f); Assign(g,'dulieu.out'); rewrite(g); d:=0; while not eof(f) do begin readln(f,n); if n mod 2=0 then d:=d+1; end; write(g,d); close(f); close(g); end.
