Дана матрица n x n, вывести элемент i-го столбца, найти их сумму и max элемент. Код...

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

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

begin

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

Writeln('*** Исходная матрица ***');

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

a.Println(4);

Println(4*a.ColCount*'-');

var i:=ReadInteger('Укажите номер столбца (счет от 1):');

if i.InRange(1,a.ColCount) then

begin

var col:=a.Col(i-1);

Println('Сумма элементов столбца',col.Sum,'max=',col.Max)

end

else

Println('Недопустимый номер колонки')

end.