Определить количество и сумму элементов 3 столбца матрицы - PascalABC.NET

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

Использовать подпрограммы. Определить количество и сумму элементов 3 столбца матрицы: 2 1 -1 4 -3 1 -4 1 С= 2 1 2 3 удовлетворяющих условию IСi3I<=3 2 2 5 4 -3 -1 -3 1

Решение задачи: «Определить количество и сумму элементов 3 столбца матрицы»

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

begin
  var a: array[,] of integer := (
    (2, 1, -1, 4),
    (-3, 1, -4, 1),
    (2, 1, 2, 3),
    (2, 2, 5, 4),
    (-3, -1, -3, 1));
  a.Println;
  var s := a.Col(2).Where(x -> Abs(x) <= 3);
  writelnformat('Элементов {0}, сумма = {1}', s.Count, s.Sum);
end.

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

В данном коде выполняются следующие действия:

Создается массив a размером 5x4, заполненный значениями для ячеек.
Выводится на экран содержимое массива a.
В строке с номером 2 (индекс 1) выбираются элементы, удовлетворяющие условию Abs(x) <= 3.
Вычисляется количество выбранных элементов и их сумма.
С помощью функции writelnformat выводится на экран сообщение с количеством выбранных элементов и их суммой.