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

0 голосов
51 просмотров

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


Информатика (14 баллов) | 51 просмотров
0

Паскаль? С++?

0

Паскаль

Дан 1 ответ
0 голосов

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.

(2.5k баллов)
0

загрузи дополнительный файл модуля, переименуй файл в MatrixModule.pas и положи рядом с файлом программы в одну папку. Запускай программу и будет тебе счастье.