program Min;
uses crt;
var n,i,dle,dch:integer;
    A:array [1..100] of integer;
begin
   clrscr;
   write('Nhap n (n<300): '); readln(n);
   for i:=1 to n do 
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
   end;
   dle:=0; dch:=0;
   for i:=1 to n do if A[i] mod 2 = 0 then inc(dch) else inc(dle);
   writelnl('');
   writeln('Co ',dch,' so chan'); 
   writeln('Co ',dle,' so le');
   readln
end.

:D

Program TH4;
Uses Crt;
Var a,b,c,d,e:longint;
Begin
Clrscr;
Write('Nhap so phan tu cua day: ');readln(a);
b:=0;c:=0;
For d:=1 to a do
Begin
Write('Nhap so thu ',d,' cua day: ');readln(e);
If e mod 2=0 then b:=b+1 else c:=c+1;
End;
Writeln('So luong so chan xuat hien trong day la: ',b);
Writeln('So luong so le xuat hien trong day la: ',c);
readln;
End.

Đây nè bạn 

^-^

Chạy thử OK cả rồi