Delphi. Массивы.

[HD-boy]

Здравствуйте. Есть задача на расчет суммы массивов.
Помогите пожалуйста поменять местами максимальный и минимальный элемент первого массива, при нажатии на кнопку.
Заранее благодарю.

[Stilet]

Сделай четыре глобальные пременные для запоминания координат минимума и максимума:

qx,qy,wx,wy,mn,mx:integer;

Далее в цикле где массив наполняешь ищи экстремумы

for i:=1 to n do
for j:=1 to m do    begin
Mas1[i,j]:=random(10);
Mas2[i,j]:=random(10);
if mas1[i,j]>mx then begin qx:=i;qy:=j; mx:=mas1[i,j]; end;
if mas1[i,j]<mn then begin wx:=i;wy:=j;mn:=mas1[i,j]; end;

А после меняй их местами:

tag:=mas1[qx,qy];
mas1[qx,qy]:=mas1[wx,wy];
mas1[wx,wy]:=tag;

Все ясно?

[HD-boy]

Сообщение от Stilet

Далее в цикле где массив наполняешь ищи экстремумы

for i:=1 to n do
for j:=1 to m do    begin
Mas1[i,j]:=random(10);
Mas2[i,j]:=random(10);
if mas1[i,j]>mx then begin qx:=i;qy:=j; mx:=mas1[i,j]; end;
if mas1[i,j]<mn then begin wx:=i;wy:=j;mn:=mas1[i,j]; end;

А после меняй их местами:

tag:=mas1[qx,qy];
mas1[qx,qy]:=mas1[wx,wy];
mas1[wx,wy]:=tag;

Ну как найти экстремумы прописал, а менять местами надо прям сразу после этих строк (где экстремумы ищем)?

Сделал так, при запуске случайным вводом чисел, в первой ячейке неизменно стоит число "2117597462".

З.Ы. А каким образом элементы будум местами меняться?

[Stilet]

Сделал так, при запуске случайным вводом чисел, в первой ячейке неизменно стоит число "2117597462".

Ну знач проинициализируй перед циклами

mx:=-MAXINT
mn:=MAXINT;

[HD-boy]

Так как все таки сделать так, чтобы элементы местами менялись?
Прописал текст, который вы написали выше, все работает, спасиб.
А вот с самой заменой проблемка=(

[Alex Cones]

http://www.programmersforum.ru/showthread.php?t=70310