Delphi7.Поиск минимального и максимального элемента в массиве

[Tony Hudson]

Добрый вечер.
Дан динамический целочисленный массив из 10 элементов.Нужно найти максимальный и минимальный элемент и поменять их местами.

Я вот нашел мин. и макс. элемент, а как их поменять ладу не дам.

var
  Form1: TForm1;
    a:array of integer;
    i,c,max,min,n:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Setlength(a,10);
 Randomize;
  for i:=1 to 10 do
  begin
  a[i]:=RandomRange(1,10);
  stringGrid1.Cells[i,0] :=InttoStr(a[i]);
  end;
 max:=a[1];
 min:=a[1];
 for i:=2 to 10 do begin
 if a[i]>max then max:=a[i];
 if a[i]<min then min:=a[i];
 end;

 for i:=1 to 10 do // Тут мои предположения о том как их поменять местами
 c:=a[max];
 a[max]:=a[min];
 a[min]:=c;

 for i:=1 to 10 do
 stringGrid1.Cells[i,1] :=InttoStr(a[i]);

 Label1.caption:=('Минимальный элемент:' + intToStr(min)+ 'Максимальный элемент:' +IntToStr(max));
end;

end.

[Poma][a]

Массив у Вас от 0 до 9..
Чтобы менять нужны индексы, а не значения

[Tony Hudson]

А Вы не подскажите, как найти индексы?

var
  Form1: TForm1;
    a:array of integer;
    imax,imin,i,c,max,min,n:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Setlength(a,10);
 Randomize;
  for i:=1 to 10 do
  begin
  a[i]:=RandomRange(1,10);
  stringGrid1.Cells[i,0] :=InttoStr(a[i]);
  end;
  imax:=1;
  imin:=1;
 max:=a[1];
 min:=a[1];
 for i:=1 to 10 do begin
 if a[i]>max then begin max:=a[i]; imax:=i;
  end;
   if a[i]<min then begin min:=a[i];   imin:=i;
 end;
 end;
Label1.Caption:=('Индекс Min'+IntToStr(imin)+'Индекс макс'+IntToStr(imax));

 for i:=1 to 10 do
 stringGrid1.Cells[i,1] :=InttoStr(a[i]);
end;

Индекс я нашел, а как их теперь поменять и внести в поле StringGrid?

[Вадим Мошев]

Обмен местами:

tmp:=a[imax];
a[imax]:=a[imin];
a[imin]:=tmp;

Поместить их в массив можно так же, как и в самом начале:

stringGrid1.Cells[i,0] :=InttoStr(a[i]);

[Tony Hudson]

Спасибо большое!