Задан 2D массив целых чисел (20Х30) со значениями на [-30; 50]

// 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-gt;r.Where(e-gt;egt;0).Count).Println;
  Write('Отрицательных по строчкам: ');
  a.Rows.Select(r-gt;r.Where(e-gt;elt;0).Count).Println;
  Write('Средние четных по строчкам: ');
  a.Rows.Select(x-gt;x.Where(y-gt;y.IsEven).Average).
    Select(avg-gt;Format('0:f4',avg)).Println;
end.