// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrRandom(5,5,0,100);
Writeln(*** Исходная матрица ***);
a.Println(4); Writeln(4*a.ColCount*-);
var k:=a.ElementsWithIndexes.MaxBy(t->t[0]);
Write(Максимальный элемент [,k[1]+1,,,k[2]+1,]=,k[0]);
var p:= на ;
if k[1]
Writeln(, расположен,p,главной диагонали)
end.
Пример
*** Исходная матрица ***
41 4 37 54 30
71 73 75 65 22
38 60 85 89 74
0 87 82 55 69
69 87 21 71 73
--------------------
Максимальный элемент [3,4]=89, расположен выше главной диагонали
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.