Рекурсия: вычислить количество четных элементов массива - PascalABC.NET

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

В одномерном массиве, вводимом с клавиатуры и состоящем из N вещественных элементов, вычислить количество четных элементов массива (использовать РЕКУРСИВНУЮ ФУНКЦИЮ для вычисления).

Решение задачи: «Рекурсия: вычислить количество четных элементов массива»

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

const
  N = 10;
  
var
  a: array[1..N] of integer;
  
function count(index: integer): integer;
begin
  Result := 1 - a[index] mod 2;
  if index < n then Result += count(index + 1)
end;
 
begin
  for var i := 1 to N do read(a[i]);
  write(count(1))
end.

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

В данном коде реализуется рекурсивная функция для подсчета количества четных элементов в массиве.

В первой строке объявляется константа N, которая определяет размер массива (в данном случае 10).
Затем объявляется массив a типа array[1..N] of integer, который будет содержать 10 целых чисел.
Далее, определяется функция count с типом возвращаемого значения integer и параметром index типа integer. Эта функция будет выполнять подсчет четных чисел в массиве.
Внутри функции count, результат присваивается выражению 1 - a[index] mod 2. Это выражение проверяет, является ли элемент массива четным или нет. Если остаток от деления на 2 равен 1, то число нечетное, если 0 - четное.
Затем, с помощью условного оператора if, проверяется значение индекса. Если он меньше N, то к результату текущего вызова функции count добавляется результат вызова функции count с индексом index + 1. Это происходит потому, что функция count вызывается рекурсивно для каждого элемента массива.
В основной части программы, с помощью цикла for, происходит заполнение массива a значениями. Для этого используется функция read, которая считывает целочисленное значение с консоли.
В конце программы, вызывается функция count с аргументом 1 и результат выводится на экран с помощью функции write. Таким образом, данный код подсчитывает количество четных чисел в массиве с использованием рекурсии.