Question

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

Answer 1

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

begin

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

 a.Println;

 Writeln;

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

end.