Задан 2d массив целых чисел (20х30) со значениями на [-30; 50] нужно уметь генерировать случайные, равномерно распределенные целые числа 1)найти сколько положит элементов, ск. отрицат элементов в каждой строке. 2)среднее значение четных элементов в каждой строке.
// Внимание! Если программа не работает, обновите версию!
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.