двумерный массив целых чисел А размером N на M. найти максимальный элемент и поменять его местами с A[1,1]. Задача в Pascal

[flo90]

Данную задачу надо решить матрицей двумя способами , одним я решил а какой второй ???

Задача:

Задан двумерный массив целых чисел А размером N на M. найти максимальный элемент и поменять его местами с A[1,1].

1-способ:

program 111;
var
a:array[1..100,1..100] of integer;
i:integer;
j:integer;
n:integer;
m:integer;
max:integer;
begin

writeln ('kol-vo strok');
readln(n);
writeln ('kol-vo stolbcov');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']='); {ввод матрицы}
readln(a[i,j]);
end;
writeln ('ishod matrica:');{вывод ее}
for i:=1 to n do
 begin
 for j:=1 to m do
 write(a[i,j],' ');
 writeln;
 end;
writeln;
max:=abs(a[1,1]); {поиск мах элемента}
for i:=1 to n do
 for j:=1 to m do
 begin
 if abs(a[i,j])>max then
 max:=abs(a[i,j]);
 end;
a[1,1]:=max; {переприсваивание}
writeln('zamena');
for i:=1 to n do {вывод того что получилось}
 begin
 for j:=1 to m do
 write(a[i,j],' ');
 writeln;
 end;
readln;
end.

А вот какой второй способ

[Serge_Bliznykov]

начнём с того, что Вы её НЕПРАВИЛЬНО решили.

найти максимальный элемент и поменять его местами с A[1,1].

Вам нужно поменять элементы местами, а Вы банально записываете максимальное значение на место элемента 1,1

это раз.

во-вторых, зачем Вы берёте модули числа при поиске максимального значения?! Это ошибка! В задании об этом нет ни слова!

НУ и в-третьих, я знаю только ОДИН способ решения проблемы.
найти индексы (номер строки и номер столбца) максимального элемента и поменять два элемента местами. Про какой второй способ идёт речь?!

[SlavaSSU]

наверное задание и подразумевает запоминание значения максимального элеиента(1 способ) или запоминание индексов максимального элемента(2 способ)

[Hacker19_90]

да но собственно

запоминание значения максимального элеиента(1 способ)

не как не позволит пардон

поменять его местами с A[1,1]

[SlavaSSU]

как не позволит?
пройтись по матрице и если a[i,j]=max then a[i,j]:=a[1,1];