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.
