Uses crt;

var a: array[1..100] of integer;

i,n,dem: integer;

begin

Write('Nhap so luong phan tu cua mang: "); readln(n); 

for i:=1 to n do

begin

     write('Nhap a[',i,']= ');

     readln(a[i]);

end;

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

write('Co ',dem,' so le trong mang');

readln;

end.

Input: N và dãy a1, a2,...an
Output: Số giá trị là số lẻ
*Thuật toán:
B1: Nhập n và dãy a1, a2,...an
B2: Cho i chạy từ 1 đến n nếu a[i] mod 2 = 1 thì đó là số lẻ
B3: In kết quả và kết thúc thuật toán

*Chương trình:

Program qtruong;
Uses crt;
Var n, i, dl: integer;
      a:array[1..1000000] of longint;
Begin
Clrscr;
Write('Nhap so lg ptu, n = '); readln(n);
For i:=1 to n do
begin
     write('a[',i,']='); readln(a[i]);
end;
dl:=0;
For i:=1 to n do if a[i] mod 2 = 1 then inc(dl);
Writeln('Co ',dl,' so hang trong day co gia tri la so le');
readln
end.