uses crt;
var d:text; t,n,i,m:longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
readln(d,n);
for i:=1 to n do begin readln(d,m); If m mod 2=0 then inc(t) end;
close(d);
writeln(t,' ',n-t);
readln
end.
Đây là cách ngắn ,tốt và đúng nhất nên mong các bạn mong hãy vote cho mình.