Элементы матрицы размерностью nn заданы случайным образом. Найти среднее значение

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программка не работает, обновите версию!

begin

 var n := ReadInteger('Количество строк/столбцов в матрице:');

 Writeln('*** Начальная матрица ***');

 var a := MatrRandom(n, n, -99, 99);

 a.Println(4);

 Println('*** Средние по столбцам ***');

 a.Cols.Select(col -gt; col.Average).PrintLines

end.

begin

 var n := 5;

 var a := MatrRandom(n, n, 0, 9); a.Println();

 Println('--------------------');

 for var j := 0 to n - 1 do

   Write(a.Col(j).Average:4:1)

end.