uses crt; var n,i,d:longint; a:array[1..1000000]of longint; begin clrscr; write('Nhap N: ');readln(N); for i:=1 to n do begin write('Nhap a',i,': ');readln(a[i]); end; d:=0; for i:=1 to n do if a[i] mod 2=0 then d:=d+1; writeln('Day co ',d,' so chan'); readln end.
