Решите пожалуйста через функцию , паскаль найти сумму элементов определенного столбца...

Question

Решите пожалуйста через функцию , паскаль найти сумму элементов определенного столбца матрицы

Answer 1

function GetSumm(a: array[,] of integer; k: integer) :=

   a.Col(k).Sum;

begin

 var (m, n) := ReadInteger2('Число строк и столбцов матрицы:');

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

 a.Println;

 var k := ReadInteger('Сумма какого столбца нужна?');

 if k in (1..n) then

   Print('Сумма равна', GetSumm(a, k - 1))

 else

   Print('Неверный номер столбца')

end.

---