Nhập từ bàn phím số dương N và dãy A gồm N số nguyên có GTTĐ <=1000. Tìm số lượng số chẵn, lẽ trong dãy.

PROGRAM CT79;
USES crt;
VAR c,l,i,n: INTEGER;
A: ARRAY[1..1000] OF INTEGER;
BEGIN
clrscr;
Randomize;
Write('Nhap so duong N de co mang gom N so ngau nhien: '); Readln(n);
FOR i:=1 TO N DO
BEGIN
A[i]:=Random(1001)-Random(1001);
Write(A[i],' '); END; Writeln;
c:=0; l:=0;
FOR i:=1 TO N DO
IF A[i] MOD 2 = 0 THEN c:=c+1 ELSE l:=l+1;
Write('Co: ',c,' so chan. Co: ',l,' so le.');
Readln
END.

Download: http://www.mediafire.com/?smmflb23s9sys0o