Составьте программу подсчета таких строк двухмерного массива A(P,Q), что суммы элементов...

Question

Составьте программу подсчета таких строк двухмерного массива A(P,Q), что суммы элементов этих строк положительны. (Паскаль!)

Answer 1

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

begin

 var (строк, столбцов) := ReadInteger2('Укажите P и Q:');

 var (от, до) := (-99, 99);

 var массив := MatrRandom(строк, столбцов, от, до);

 массив.Println;

 массив.Rows

     .Select(строка -> строка.Sum)

     .Count(сумма -> сумма > 0)

     .Print

end.

---