// PascalABC.NET 3.2, сборка 1407 от 18.03.2017// Внимание! Если программа не работает, обновите версию!begin var a:=MatrRandom(20,30,-30,50); a.Println(4); Writeln(4*a.ColCount*'-'); Write('Положительных по строкам: '); a.Rows.Select(r->r.Where(e->e>0).Count).Println; Write('Отрицательных по строкам: '); a.Rows.Select(r->r.Where(e->e<0).Count).Println; Write('Средние четных по строкам: '); a.Rows.Select(x->x.Where(y->y.IsEven).Average). Select(avg->Format('{0:f4}',avg)).Println;end.