program soluong;
var A:array[1..100] of integer;
n,i,sl:integer;
begin
clrscr;
write('Nhap so luong phan tu N: '); readln(n);
writeln('Nhap gia tri tung phan tu cua day');
sl:=0;
for i:=1 to n do
begin
write('A[',i,']= ');
readln(A[i]);
if A[i] mod 2=1 then sl:=sl+1;
end;
write('So luong so le la: ',sl);
write('So luong so chan la: ',n-sl); {so chan=n - so le}
readln
end.