// 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).Printlnend.
ПримерКоличество строк и столбцов в массиве: 5 8*** Исходный массив [5,8] *** -21 50 17 -12 -30 10 -9 10 39 1 0 41 -29 26 28 16 50 52 13 36 43 -6 37 5 34 -3 27 13 29 -30 49 36 -17 -12 39 52 -15 -8 27 -9--------------------------------4 1 1 2 5