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

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

Даны натуральные числа n, a1,..., an. Определить количество членов ak последовательности a1,..., an: имеющих чётные порядковые номера и являющихся нечётными числами.

Ребята, помогите сделать эту задачу.

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

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

var
  a: array[1..100] of integer;
  n, k, i: integer;
 
begin
  randomize;
  readln(n);
  k := 0;
  for i := 1 to n do
  begin
    a[i] := random(n);
    write(a[i]:4);
    if (odd(a[i])) and not (odd(i)) then
      inc(k);
  end;
  writeln;
  writeln(k);
end.

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

В данном коде используется язык программирования Pascal ABC. Задача заключается в подсчете количества членов последовательности, которые имеют четные порядковые номера и являются нечетными числами. Переменные в коде:

a: массив целых чисел размером от 1 до 100.
n: число, определяющее размер массива a.
k: счетчик для хранения количества членов последовательности.
i: переменная для итерации по элементам массива a. Код начинается с генерации случайного числа в диапазоне от 1 до n. Затем происходит итерация по элементам массива a с помощью цикла for. Внутри цикла значение переменной i увеличивается на 1, а значение a[i] записывается на экран. Если значение a[i] является нечетным числом и его порядковый номер четный, то значение переменной k увеличивается на 1. В конце выводится значение k. Пример работы кода: Предположим, что мы запустили программу и указали размер массива a равным 10. Код будет генерировать случайные числа от 1 до 10 и проверять, являются ли они четными или нечетными. Если число четное и его порядковый номер четный, то значение переменной k увеличивается на 1. После завершения цикла выводится значение k, которое будет равно 5, так как только 5 чисел из 10 были четными и нечетными.