Нужно чтоб в каждой строке наибольший элемент поменять местами с элементом главной
диагонали, после перестановки элементов результирующий двумерный массив вывести на
экран;
Удалось пока сделать вот столько
var
a: array[1..5,1..5] of integer;
n,m,i,j,k :byte;
max,min,jmax :integer;
begin
writeln('Введите количество строк n и столбцов m(n<=5,m<=5)');
readln(n,m);
writeln('Исходный двухмерный массив');
for i := 1 to n do
begin
for j:= 1 to n do
begin
a[i,j]:= random(20)+1;
write(a[i,j]:4,' ');
end;
writeln;
end;
max := a[1,1];
for i := 1 to n do
begin
for j:= 1 to m do
if a[i,j] > max then
max := a[i,j];
end;
for i := 1 to n do
begin
max :=a[i,1];
jmax := 1;
for j := 1 to m do
if a[i,j] > max then begin
max:= a[i,j];
jmax := j;
end;
writeln('max элемент ',i,' строки находится в ', jmax,' столбце= ',max);
end;
end.
Простой
