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.
ө мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп калайсындар мен Бахтыбай Абылай хан атындағы қазақ ұлттық университетінің журналистика факультетін бітірген қазақ халқының саны жөнінен де бар білгені жөн бе әлде қоладан ба не истеп
begin
var n := ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица ***');
var a := MatrRandom(n, n, -99, 99);
a.Println(4);
Println('*** Средние по столбцам ***');
a.Cols.Select(col -> col.Average).PrintLines
end.