Определить количество нечетных членов последовательснот, имеющих четные порядковые номера - Pascal ABC

Формулировка задачи:

Даны натуральные числа n, A 1, A2 , ..., An . Определить количество членов Ak последовательности A1 , ..., An :имеющих четные порядковые номера и являющихся нечетными числами

Решение задачи: «Определить количество нечетных членов последовательснот, имеющих четные порядковые номера»

Листинг программы

var n, i, count, a: integer;
begin
  readln(n);
  count := 0;
  for i := 1 to n do begin
    read(a);
    if (a mod 2 <> 0) and (i mod 2 = 0) then
      inc(count);
  end;
  writeln(count);
end.

Объяснение кода листинга программы

В начале кода объявляются переменные: n (целое число), i (счетчик), count (счетчик), a (целое число).
Затем с помощью функции readln в переменную n считывается количество последовательностей.
Переменная count инициализируется нулем и используется для подсчета нечетных чисел.
Далее с помощью цикла for происходит итерация по всем элементам последовательности.
Внутри цикла с помощью функции read считывается значение очередного элемента и сохраняется в переменной a.
С помощью условия if проверяется, является ли число нечетным и имеет ли оно четный порядковый номер.
Если условие выполняется, то с помощью операции inc увеличивается значение переменной count.
После завершения цикла значение переменной count выводится на экран с помощью функции writeln.