{Найти максимальный по модулю элемент матрицы rmatr[n, m].
Переставить строки и столбцы матрицы таким образом, чтобы
максимальный по модулю элемент был расположен на пересечении
k-й строки и k-го столбца
(k – вводится пользователем с клавиатуры).}

[code lang=pascal h=300]var
a: array[1..20, 1..20] of integer;
n, m, i, j, k, k_min, i_max, j_max, t: integer;

begin
randomize;

{Вводим n, m в диапазоне от 1 до 20}
repeat
write('Enter n, m: ');
readln(n, m);
until (n in [1..20]) and (m in [1..20]);

{Выводим матрицу на экран}
writeln('rmatr:');
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(100);
write(a[i, j]:4);
end;
writeln;
end;

{Ищем максимум и выводим на экран}
i_max := 1; j_max := 1;
for i := 1 to n do
for j := 1 to m do
if a[i, j] > a[i_max, j_max] then
begin
i_max := i;
j_max := j;
end;
writeln('Max = a[', i_max, ',', j_max, '] = ', a[i_max, j_max]);

{Вводим k в диапазоне от 1 до минимального из n, m}
if n < m then k_min := n
else k_min := m;
repeat
write('Enter k: ');
readln(k);
until k in [1..k_min];

{Меняем столбцы}
for i := 1 to n do
begin
t := a[i, k];
a[i, k] := a[i, j_max];
a[i, j_max] := t;
end;

{Меняем строки}
for j := 1 to m do
begin
t := a[k, j];
a[k, j] := a[i_max, j];
a[i_max, j] := t;
end;

{Выводим полученную матрицу}
writeln('New rmatr:');
for i := 1 to n do
begin
for j := 1 to m do
write(a[i, j]:4);
writeln;
end;

readln;
end.[/code]