Cоставить функцию вычисления количества отрицательных элементов в одномерном массиве - Turbo Pascal
Формулировка задачи:
составить функцию вычисления количества отрицательных элементов в одномерном массиве
Решение задачи: «Cоставить функцию вычисления количества отрицательных элементов в одномерном массиве»
textual
Листинг программы
- 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
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д