заменить максимальный и минимальный элементы массива, размер которого был указан с клавиатуры

[123Василий]

Видимо, сегодня не мой день.
Нужно заменить максимальный и минимальный элементы массива, размер которого был указан с клавиатуры.
Написал код, но увы, он не до конца работает правильно.
Искал ошибку, переписывал, но с мертвой точки неудачи так и не сдвинулся..

Var   a1:array of integer;
        n,I,max,min,q:integer;

begin
     n:=StrToInt(edt1.Text);
     Randomize;
     SetLength(a1,n);
     for i:=0 to (n-1) do
     begin
     a1[i]:=Random(50);
     mmo1.Lines.Add(IntToStr(a1[i]));

     min:=a1[1];
     max:=a1[1];

     if a1[i]<min then min:=a1[i];
     if a1[i]>max then max:=i;

     q:=a1[min];
     a1[min]:=a1[max];
     a1[max]:=q;


     mmo2.Lines.add(intToStr(a1[i]));
     end;

[p51x]

     min:=a1[1];
     max:=a1[1];

Дин.массивы нумеруются с 0. Зачем вы их на каждой итерации сбрасываете?

     if a1[i]<min then min:=a1[i];
     if a1[i]>max then max:=i;

Так вы запоминаете индексы или значения?

     q:=a1[min];
     a1[min]:=a1[max];
     a1[max]:=q;

Зачем вы каждую итерацию цикла переставляете текущий макс с мин?

[123Василий]

if a1[i]<min then min:=i;
if a1[i]>max then max:=i;

Опечатка вышла.
Я запоминаю индексы,а потом меняю их местами

[Алексей_2012]

Примерно вот так)
Весы = спасибо

[digitalis]

Цикл по заполнению массива (исходный пост) - вижу, хотя он end ом не закрыт, а цикла поиска min-max - нету. Why?
Вообще мы с котом Мурзиком решили, что вот так будет работать, а так, как в #1 - лучше не вспоминать. Путать индексы со значениями - это не спортивно. Не говоря уже об форматировать код.

Var   a1:array of integer;
        n,i,max,min,i_max,i_min,q:integer;
begin
     n:=StrToInt(edt1.Text);
     Randomize;
     SetLength(a1,n);
     for i:=0 to (n-1) do
     begin
        a1[i]:=Random(50);
        mmo1.Lines.Add(IntToStr(a1[i]))
     end ;

     min:=a1[0]; i_min := 0 ;
     max:=a1[0]; i_max := 0 ;

     for i:=1 to (n-1) do
       begin 
          if a1[i]<min then
                  begin min:=a1[i]; i_min := i end ;
          if a1[i]>max then
                  begin max:=a1[i]; i_max := i end ;
       end ;
 ;

     q:=a1[i_min];
     a1[i_min]:=a1[i_max];
     a1[i_max]:=q;

[p51x]

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

Цикл по заполнению массива - вижу, хотя он end ом не закрыт, а цикла поиска min-max - нету. Why?

Внимательней - закрыт, нет/не скопирован только последний "end."; цикл поиска есть - он просто тот же самый, ТС пытался все сделать в одном цикле.

[123Василий]

Благодарю за помощь!

[digitalis]

Ну если все утоптать в один цикл, то где-то так:

     i_min := 0 ;
     i_max := 0 ; 
     for i:=0 to (n-1) do
     begin
        a1[i]:=Random(50);
        mmo1.Lines.Add(IntToStr(a1[i])) ;
        if i=0 then
            begin  min:=a1[0];  max:=a1[0] end ;
        if a1[i]<min then
                  begin min:=a1[i]; i_min := i end ;
        if a1[i]>max then
                  begin max:=a1[i]; i_max := i end ;
     end ;

Можно было после первого if - else вставить - выиграли бы пару микросекунд во время выполнения

Но уж это - ни в дугу, ни в Красну Армию

   min:=a1[0];
  ......
  q:=a1[min];