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;
