// PascalABC.NET 3.3, сборка 1573 от 04.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-35,60); a.Println(4); Writeln(4*a.ColCount*'-'); a.Rows.Select(row->row.Where(t->t<0).Count).Println end.