Viết ct nhập từ bàn phím số nguyên dương N và dãy A gồm N số nguyên dương đưa kết quả ra màn hình số lượng số lẻ , số lượng số chẳn trong dãy

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.

uses crt;
var n,i,d1,d2:byte;
a:array[1..255] of word;
BEGIN
        clrscr;
        write('Nhap n:'); readln(n);
        d1:=0; d2:=0;
        for i:=1 to n do
        begin
                write('Nhap a[',i,']=');
                readln(a[i]);
                if a[i] mod 2 =0 then inc(d1)
                else inc(d2);
        end;
        write('Co ',d1,' so chan va ',d2,' so le trong day so tren.');
        readln
END.

Chúc bạn học tốt.

Cho mình xin câu trả lời hay nhất.