// PascalABC.NET 3.2, сборка 1367 от 20.12.2016// Внимание! Если программа не работает, обновите версию!begin Writeln('*** Исходный массив 9x6 ***'); var a:=MatrRandom(9,6,-50,50); a.Println(4); Writeln(4*a.ColCount*'-'); var kn:=a.Rows.SelectMany(x->x).Where(x->x<0).Count; var kp:=a.Rows.SelectMany(x->x).Where(x->x>0).Count; Writeln(kn,' отрицательных, ',kp,' положительных')end.
Пример*** Исходный массив 9x6 *** -47 37 23 -34 -33 0 -17 -5 13 -9 0 -46 -41 31 41 -30 -24 49 39 50 13 4 19 14 -17 -12 -24 22 -9 -44 -27 17 -44 -35 -4 32 26 -5 49 -7 -28 -25 -15 -9 13 25 -26 -29 -40 -24 -4 50 33 -45------------------------31 отрицательных, 21 положительных