Question

Помогите, пожалуйста!
Составить программу на Паскале для обработки двумерного массива размерностью 3*4. Массив заполнить самостоятельно. Вычислить сумму положительных элементов каждой строки двумерного массива.

Answer 1

===== PascalABC.NET =====

begin

 var a := MatrRandom(3, 4, -99, 99);

 a.Println;

 Print('Суммы положительных построчно:');

 a.Rows.Select(r -> r.Where(p -> p > 0).Sum).Print

end.