===== 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== 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.