Question

Составьте программу, выясняющую, есть ли в двухмерном массиве А(N,M) строки, сумма элементов которых есть отрицательное число ( ПАСКАЛЬ!)

P.S. нужно, чтобы эта программа запустилась в с++
Очень срочно!​

Answer 1

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

begin

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

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

 a.Println;

 if a.Rows.Select(r -> r.Sum).Any(s -> s < 0) then

   Print('Есть')

 else

   Print('Нет')

end.

Answer 2

Спасибо :)