* Xác định bài toán :

- Input : nhập n và dãy a1, a2, ... , an

- Output : số lượng phần tử lẻ trong dãy

* Ý tưởng :

- Lần lượt với i từ 1 đến n, so sánh giá trị số hạng a[i] mod  với giá trị 0, nếua[i] mod 2 <> 0 thì biến đếm được tăng lên một giá trị 

* Viết thuật toán :

- Bước 1 : nhập n và dãy a1, a2, ... , an

- Bước 2 : i ← 0; dem ← 0 

- Bước 3 : nếu i > n thì đưa ra giá trị dem rồi kết thúc

- Bước 4 :

- Bước 4.1 : nếu a[i] mod 2 <> 0 thì dem ← dem + 1

- Bước 4.2 : i ← i + 1 quay lại bước 3

* Mô phỏng :

uses crt;

var n, i, d: integer;

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

begin

clrscr;

        write('nhap so ptu: '); readln(n);

             for i:=1 to n do begin

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

                                              end;

                for i:=1 to n do

                      if (a[i] mod 2<>0 then write(a[i]:3);

readln;

end.

bạn đọc rồi  sẽ hiểu thì a, b dễ thôi