Cоставить функцию вычисления количества отрицательных элементов в одномерном массиве - Turbo Pascal

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

составить функцию вычисления количества отрицательных элементов в одномерном массиве

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

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

function CountNegativeElements(const a: array of Integer): Integer;
var i, r: Integer;
begin
  r:=0; for i:=Low(a) to High(a) do Inc(r,Ord(a[i]<0));
  CountNegativeElements:=r;
end;

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

Функция CountNegativeElements принимает аргумент const a: array of Integer, который представляет собой одномерный массив целых чисел.
Переменная r инициализируется значением 0. Она будет использоваться для подсчета отрицательных элементов массива.
В цикле for перебираются все элементы массива от Low(a) до High(a).
Внутри цикла выполняется операция Inc(r,Ord(a[i]<0)), которая увеличивает значение r на 1, если элемент массива a[i] отрицательный (то есть a[i] < 0).
После завершения цикла, значение r будет содержать количество отрицательных элементов в массиве.
Значение CountNegativeElements присваивается значению r.
Функция возвращает значение CountNegativeElements.