Помогите решить двумерный массив на Paskal

[Anton_XXX]

Привет всем!
Очень простая задача, решена не до конца... Проблема состоит в том, что у меня не получается поменять местами максимальный и минимальный элемент в массиве!!!

Помогите пожалуйста!!!

Вот задание: найти в двумерном массиве максимальный и минимальный элемент и поменять их местами.

Код: Выделить всё

program Ex_3;
uses crt;
const
n=10;
m=10;
var
mas:array[1..n,1..m] of integer;
i,j,maxi,maxj,b,c,d,mini,minj,max,a,min:integer;
p,o:integer;
begin
randomize;
writeln('ЗАДАНИЕ: найти в двумерном массиве максимальный и минимальный элемент и поменять их местами');
writeln;
writeln('Массив заполняется случайными числами!');
writeln;
for i:=1 to n do
for j:=1 to m do
begin
mas[i,j]:=random(50)-20;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:4);
writeln;
end;
readln;
max:=mas[1,1];
maxi:=1; mini:=1;
maxj:=1; minj:=1;
min:=mas[1,1];
for i:=1 to n do
for j:=1 to m do
if max<mas[i,j] then begin max:=mas[i,j];
maxi:=i; maxj:=j;
a:=i; b:=j;
end;
for i:=1 to n do
for j:=1 to m do
if min>mas[i,j] then begin min:=mas[i,j];
mini:=i; minj:=j;
c:=i; d:=j;
end;
writeln;
writeln('максимальный: ',max,' индексы: [',maxi,',',maxj,']');
writeln('минимальный: ',min,' индексы: [',mini,',',minj,']');
readln;
mas[mini,minj]:=mas[maxi,maxj]; {Здесь происходит замена элементов max и min}
mas[a,b]:=mas[c,d];
for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:4);
writeln;
end;
readln;
end.

[Колядин Максим]

1. Переменные (a,b,c,d: intger) здесь лишние. Не стоит менять два элемента "пузырьковым методом".
2. [quote="Anton XXX"]

Код: Выделить всё

...
for i:=1 to n do
for j:=1 to m do
begin
mas[i,j]:=random(50)-20]
[/quote]
Для "однооперационных" процедур не нужно использовать [B]begin end;[/B]
[code]
for i:=1 to n do
for j:=1 to m do mas[i,j]:=random(50)-20;

3. И наконец, меняем местами:

Код: Выделить всё

....
mas[mini,minj]:=max; {Здесь происходит замена элементов max и min}
mas[maxi,maxj]:=min;
....

[Колядин Максим]

И ещё, переменные (p,o: integer здесь тоже лишние. Вот весь код программы:

Код: Выделить всё

program Ex_3;
uses crt;
const
n=10;
m=10;
var
mas:array[1..n,1..m] of integer;
i,j,maxi,maxj,mini,minj,max,min:integer;
begin
randomize;
writeln('ЗАДАНИЕ: найти в двумерном массиве максимальный и минимальный элемент и поменять их местами');
writeln;
writeln('Массив заполняется случайными числами!');
writeln;
for i:=1 to n do
for j:=1 to m do mas[i,j]:=random(50)-20;
for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:4);
writeln;
end;
readln;
max:=mas[1,1];
maxi:=1; mini:=1;
maxj:=1; minj:=1;
min:=mas[1,1];
for i:=1 to n do
for j:=1 to m do
if max<mas[i,j] then begin max:=mas[i,j];
maxi:=i; maxj:=j;
end;
for i:=1 to n do
for j:=1 to m do
if min>mas[i,j] then begin min:=mas[i,j];
mini:=i; minj:=j;
end;
writeln;
writeln('максимальный: ',max,' индексы: [',maxi,',',maxj,']');
writeln('минимальный: ',min,' индексы: [',mini,',',minj,']');
readln;
mas[mini,minj]:=max; {Здесь происходит замена элементов max и min}
mas[maxi,maxj]:=min;
for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:4);
writeln;
end;
readln;
end.

[Хыиуду]

А можно еще сократить. Обойтись вообще без max и min, а нахождение максимума и минимума свести в один цикл. Замену максимума и минимума тогда провести путем сложения-вычитания.

Код: Выделить всё

program Ex_3;
uses crt;
const
n=10;
m=10;
var
mas:array[1..n,1..m] of integer;
i,j,maxi,maxj,mini,minj:integer;
begin
randomize;
writeln('ЗАДАНИЕ: найти в двумерном массиве максимальный и минимальный элемент и поменять их местами');
writeln;
writeln('Массив заполняется случайными числами!');
writeln;
for i:=1 to n do
for j:=1 to m do mas[i,j]:=random(50)-20;
for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:4);
writeln;
end;
readln;
maxi:=1; mini:=1;
maxj:=1; minj:=1;
for i:=1 to n do
  for j:=1 to m do
  begin
     if mas[maxi,maxj]<mas[i,j] then begin maxi:=i; maxj:=j; end;
     if mas[mini,minj]>mas[i,j] then begin mini:=i; minj:=j; end;
   end;
writeln;
writeln('максимальный: ',mas[masi,masj],' индексы: [',maxi,',',maxj,']');
writeln('минимальный: ',mas[mini,minj],' индексы: [',mini,',',minj,']');
readln;
inc(mas[mini,minj],mas[maxi,maxj])
mas[maxi,maxj]:=mas[mini,minj]-mas[maxi,maxj];
mas[mini,minj]:=mas[mini,minj]-mas[maxi,maxj];
for i:=1 to n do
begin
for j:=1 to m do
write(mas[i,j]:4);
writeln;
end;
readln;
end.

[Anton_XXX]

ААААА!!! Понятно, блин... А я то сижу тут думаю какую-то ерунду сочиняю.....!!!)))
Спасибо народ!!!!)))