Задан 2d массив целых чисел (20х30) со значениями на [-30; 50] нужно уметь генерировать случайные, равномерно распределенные целые числа 1)найти сколько положит элементов, ск. отрицат элементов в каждой строке. 2)среднее значение четных элементов в каждой строке.

// 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.