В данной действительной квадратной матрице порядка n отыскать наибольший по модулю

program prog;
var i, j, n, m_i, m_j: byte;
nbsp;nbsp;nbsp;nbsp;A: array[1..100,1..100] of Real;
nbsp;nbsp;nbsp;nbsp;maxmod: Real;
begin
randomize;
writeln(Vvedite N:);
readln(n);
наполнение случайными числами, можно вводить вручную
for i:=1 to n do
nbsp;nbsp;nbsp;nbsp;for j:=1 to n do
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;A[i,j]:=-100+random(200);
nbsp;
поиск наибольшего по модулю элемента
maxmod:=абс(A[1,1]);
m_i:=1;
m_j:=1;
for i:=1 to n do
nbsp;for j:=1 to n do
nbsp;nbsp;if абс(A[i,j])gt;maxmod then
nbsp;nbsp;begin
nbsp;nbsp;maxmod:=абс(A[i,j]);
nbsp;nbsp;m_i:=i; m_j:=j;
nbsp;nbsp;end;
nbsp;
Печать матрицы и ответа
writeln(Начальная матрица:);
for i:=1 to n do
begin
nbsp;for j:=1 to n do write(A[i,j]:6:1);
nbsp;writeln;
end;
writeln(Максимальный по модулю элемент A[,m_i,;,m_j,] = , A[m_i, m_j]:6:1);
вывод на печать уменьшенной матрицы
for i:=1 to n do
nbsp;if (ilt;gt;m_i) then
nbsp;begin
nbsp;for j:=1 to n do
nbsp;nbsp;nbsp;if (jlt;gt;m_j) then write(A[i,j]:6:1);
nbsp;writeln;
nbsp;end;
readln;
end