Question

Элементы матрицы размерностью n×n заданы случайным образом. Определить среднее значение каждого столбца.

Answer 1

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.

Answer 2

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 -> col.Average).PrintLines

end.