Question

Составить программу решения поставленной задачи по обработке двумерного массива (матрицы). По возможности, использовать подпрограммы.

1. Вычислить сумму и число положительных элементов матрицы A[N, N], находящихся над главной диагональю.

Answer 1

// PascalABC.NET

function ВерхнийТреугольник(Матрица: array[,] of integer):

   sequence of integer;

begin

 var ИндексMax := Матрица.RowCount - 1;

 for var ИндексСтроки := 0 to ИндексMax - 1 do

   for var ИндексСтолбца := ИндексСтроки + 1 to ИндексMax do

     yield Матрица[ИндексСтроки, ИндексСтолбца]

end;

begin

 var n := ReadInteger('N =');

 var СлучайнаяМатрица := MatrRandom(n, n, -99, 99);

 СлучайнаяМатрица.Println;

 var ПоложительныеЭлементы :=

      ВерхнийТреугольник(СлучайнаяМатрица)

     .Where(Значение -> Значение > 0);

 Println('Сумма положительных элементов равна',

     ПоложительныеЭлементы.Sum);

 Println('Число положительных элементов равно',

     ПоложительныеЭлементы.Count)

end.