Паскаль.Массивы.Перестановка эл-в

[Grue]

Дан целочисленный вектор а(n).Найти наименьшее из четных чисел,определить его индекс и поменять местами с макс. элементом.Вывести исходный вектор,полученный результат и преобразованный вектор.
Ребят,объясните плиз,что я делаю не так.

program zadanie2;
  const n=10;
  var a: array[1..n] of integer;
      i,min,max,minind,z: integer;
    begin
      min:=maxint;
      writeln('Введите ',n,' элементов массива:' );
         for i:=1 to n do
             read(a[i]);
          for i:=1 to n do 
            if (a[i] mod 2=0)and(a[i]<min) then 
              begin 
                 min:=a[i];
                 minind:=i;
              end;
        writeln('Минимальный четный элемент: ',min);
        writeln('Индекс минимального четного элемента: ',minind);
      max:=a[i];
      for i:=2 to n do 
          if a[i]>max then max:=a[i];
             Writeln('Максимальный элемент массива:',max);
            i:=min;
            min:=max;
            max:=i;
          for i:=1 to n do
          write(a[i],' ');
   end.

задач.jpg

[Black Fregat]

1) При поиске максимума тоже надо фиксировать ещё и индекс, чтобы поменять элементы. Посмотрите, как это сделано при поиске мимнимума:

              begin 
                 min:=a[i];
                 minind:=i;
              end;

2) Ну и поменять же потом местами надо a[minind] и a[maxind].

[Grue]

Спасибо!

[min@y™]

а нахрена 2 цикла?

[Serge_Bliznykov]

Сообщение от min@y™

а нахрена 2 цикла?

так их четыре
один для ввода, два для поиска экстремумов и один для вывода.

согласен, вполне можно обойтись двумя циклами - в одном вводить и искать индексы,
во-втором — вывести результат.