Question

Решить в ПаскальАВС!!!!!!!!!!!!!!!!!1

Answer 1

PascalABC.Net

begin

 var (m, n) := ReadInteger2('Введите M x N');

 var a := MatrRandom(m, n, -25, 19).Println;

 Println('Максимальный элемент', a.ElementsByCol.Max);

end.

Тестовое решение:

Введите M x N 5 5

 17  -3   9  16 -10

-12   9  -8   5   4

 15  -8 -12  13   8

  0  -3 -13  -1  -7

  3 -16 -24 -25   7

Максимальный элемент 17