Cho dãy a gồm n số nguyên a1,a2,.......an .đếm có bao nhiêu số lẻ ở trong dãy Mình cần gấp

Program dem_so ;

Uses crt ;

Var i,n,d : integer ;

    A: array [1..100] of integer ;

Begin

Write('nhap n=');

Readln (n);

For i:=1 to n do

Begin

Write ('nhap phan tu thu ',i,' =');

Readln (A[i]);

end;

d:=0;

For i:=1 to n do 

If A [i] mod 2 <>0 then 

d:=d+ 1;

Writeln('so so nguyen le trong day la:', d);

Readln

End.

#Chỗ khai báo A: array [1..100] là lấy 100 tượng trưng, mà muốn ghi số bao nhiêu cũng được vd như 150, 200, 250...cũng được. Nếu muốn khai báo kiểu chỉ số là [1..Nmax] thì phải khai báo hằng trước vd như: Const Nmax= 100;

uses crt;
var A:array[1..1000] of integer;
    n,i,dem:integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(A[i]);
      if A[i] mod 2 = 1 then inc(dem);
   end;
   write('Co ',dem,' so le trong day.');
   readln
end.