uses crt;
var n,i,s,d:integer;a:array[1..100] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
write('A[',i,']');
readln(a[i]);
end;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(d);
if a[i] mod 2<>0 then inc(s);
end;
write('co ',d,' so chan'); writeln;
write('co ',s,' so le');
readln;
end.

Cho 2 biến đếm s và s1. Tuỳ bạn đặt biến nào sẽ đếm phần tử là số chẵn, bao nhiêu phần tử lẻ. Thật ra chỉ cần 1 dòng code để xét xem nó chẵn hay lẻ. Cứ xét nếu số đó chia hết cho 2 thì cộng vào biến đếm của phần tử chẵn, không chia hết cho 2 thì cộng vào phần tử lẻ. Mấy đề như này thường sẽ cho số nguyên, không cho số thực nên chỉ cần xét 2 trường hợp là chẵn hay lẻ, không cần xét có phải là số thực hay không.