Question

создать программу на языке Паскаль для решения задачи обработки двумерных массивов – матриц:
Дана матрица А(n,m). Сформировать массив В(n), каждый элемент которого есть произведение положительных элементов соответствующей строки матрицы А.

Answer 1

// PascalABC.NET

begin

 var (n, m) := ReadInteger2('Введите n и m:');

 var a := MatrRandom(n, m, -99, 99);

 a.Println;

 var b := a.Rows

     .Select(r -> r.Where(p -> p > 0).Product(p -> int64(p)))

     .ToArray;

 b.Print

end.