Cho mảng A là số nguyên, N được nhập từ bàn phím. Viết chương trình cho biết mảng A có bao nhiêu số chẵn, bao nhiêu số lẻ giúp mình với

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,dc,dl: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        dc:=0; dl:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                If A[i] mod 2 = 0 then inc(dc)
                Else inc(dl);
        End;

        Write('Co ',dc,' so chan va ',dl,' so le');
        Readln
End.

Bạn thử xem đúng ko nha.

______________

uses crt;
var n,i,scs,tong:integer;
A:array[1..100] of integer;
f:text;
begin
clrscr;
Write('Nhap N: '); readln(n);
for i:=1 to n do
begin
Write('A[',i,']: '); readln(A[i]);
if (a[i] mod 2=0) then
begin
scs:=scs+1;
tong:=tong+A[i];
end;
end;
Writeln('Day tren co ',scs, ' phan tu chan.');
Writeln('Tong so phan tu chan co trong day la: ',tong);
readln;
end.