Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an, являющихся нечётными числами (СДЕЛАТЬ В ПАСКАЛЬ АВС).

Нужно пройти по всем элементам последовательности и увеличить счётчик, если очередное число нечётное.

Нечётное число определяется так:

pascal
a mod 2 <> 0

Программа на PascalABC.NET:

pascal
program CountOddNumbers;

var
  n, i, a, count: integer;

begin
  Readln(n);
  
  count := 0;
  
  for i := 1 to n do
  begin
    Read(a);
    
    if a mod 2 <> 0 then
      count := count + 1;
  end;
  
  Writeln(count);
end.

Например, при вводе:

6
12 5 7 8 14 3

программа выведет:

3

Потому что нечётные элементы последовательности: 5, 7, 3.