Question

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

Answer 1

program Matrix;

uses MatrixModule;

var

 n, m, j: integer;

 a: intMatrix;

begin

 m := 2;

 n := m;

  Randomize;

 FillMatrixByRandom(a, m, n, 0, 100);//заполнение случайными целыми

 PrintMatrix(a, m, n);//вывод матрицы  в консоль

 j := 2;

 PrintCol(a, m, n, j);

 Writeln('MaxInCol(', j, ') = ', MaxInCol(a, m, n, j));

 Write('SumInCol(', j, ') = ', SumInCol(a, m, n, j));

 Readln;

end.

a1e130e8b66ffff506907558ccf69718.pas