Program Dem_So_Le;

uses crt;

Var i, n, dem: integer;

         A: Array[1..32767];

begin

    clrscr;

    Write('Nhap so luong phan tu trong mang (1 <= n <= 32767): '); readln(n);

    for i:= 1 to n do

    begin

        Write('Nhap phan tu thu ',i,': ');

        readln(A[i]);

    end;

    for i:= 1 to n do if (A[i] mod 2) = 1 then dem:= dem + 1;

    Write('So luong phan tu le trong mang la: ',dem);

    readln;

end.

Var a:array[1..10000] of integer;

begin

write('nhap n va n phai <= 10000');

readln(n);

for i:=i to n do begin

write('nhap phan tu thu ',i);

readln(a[i]);

end;

demsole:=0;

for i:=1 to n do if a[i] mod 2=1 then demsole:=demsole+1;

writeln('day so nguyen do co ',demsole,' so le);

readln

end.

for i:=1 to n do if a[i] mod 2=1 then