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.
