// PascalABC.NET
begin
var (n, m) := ReadInteger2('Введите n и m:');
var a := MatrRandom(n, m, -99, 99);
a.Println;
var b := a.Rows
.Select(r -> r.Where(p -> p > 0).Product(p -> int64(p)))
.ToArray;
b.Print
end.
// PascalABC.NET
begin
var (n, m) := ReadInteger2('Введите n и m:');
var a := MatrRandom(n, m, -99, 99);
a.Println;
var b := a.Rows
.Select(r -> r.Where(p -> p > 0).Product(p -> int64(p)))
.ToArray;
b.Print
end.