Program dem_so;
Uses crt;
Var A : array [1..100] of integer;
d,i,n: 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]>0) and (A[i] mod 2=1) then
d:=d+1;
Writeln ('Co ',d,' phan tu la so nguyen duong le trong mang');
Readln
End.