Рекурсия: определить количество элементов массива, равных заданному - Pascal

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

Используя рекурсивную процедуру или функцию, составить программу определения количество элементов, равных заданному. Данные содержатся в одномерном массиве, содержащем N чисел.

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

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

Function GetNumEqually(Element,nn : Integer) : Integer;
Begin
  if nn = 0 then getnumequally := 0
  else
    getnumequally := ord(element = M[nn]) + getnumequally(element, nn - 1)
End;

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

В данном коде представлена функция под названием GetNumEqually, которая принимает два аргумента: Element и nn. Переменная Element представляет собой элемент массива, а переменная nn — номер этого элемента в массиве. Функция выполняет следующие действия:

Проверяет базовый случай, когда nn равно 0. Если это так, то функция возвращает 0.
В противном случае, функция использует оператор сравнения для определения, равен ли элемент массива с именем M элементу, представленному в переменной Element. Если это так, то функция добавляет 1 к результату функции getnumequally, вызываемой рекурсивно с аргументами Element и nn-1. Таким образом, функция GetNumEqually рекурсивно просматривает каждый элемент массива, начиная с nn, и подсчитывает количество элементов, равных Element.