Разработайте универсальную подпрограмму, определяющую количество четных элементов в строке С матрицы размером n×m элемен - PascalABC.NET

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

Разработайте универсальную подпрограмму, определяющую количество четных элементов в строке С матрицы размером n×m элементов. Поместите подпрограмму в модуль. Разработайте тестирующую программу.

Решение задачи: «Разработайте универсальную подпрограмму, определяющую количество четных элементов в строке С матрицы размером n×m элемен»

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

unit evens;
 
function evenInRow(a : array [,] of Integer; c : Integer) : Integer;
begin
  try
    Result := a.Row(c).Count(x->not odd(x));
  except
    Result := -1;
  end;
end;
 
end.

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

В этом коде функция evenInRow принимает два аргумента: массив a и целое число c. — Массив a представляет собой матрицу размером n×m, где n - количество строк, m - количество столбцов. — Целое число c указывает на номер строки, в которой нужно определить количество четных элементов. — В блоке try-except выполняется попытка выполнить код в блоке try. Если при выполнении кода в блоке try возникает исключение, то управление передается блоку except, где результат функции устанавливается в -1. — В блоке try выполняется метод Count, который подсчитывает количество элементов в строке, удовлетворяющих условию, указанному после ключевого слова where. В данном случае условие задается как not odd(x), то есть подсчитываются все элементы, которые не являются нечетными числами. — Результат выполнения функции evenInRow возвращается в качестве результата и может быть использован в дальнейшем коде.