PascalABC. Массивы. Опции

[dadelin]

Задан массив А(N).
Элементы массива, находящиеся между максимальным и минимальным элементами,
отсортировать в порядке убывания. Отсортированный массив вывести на печать.
Помогите с кодом. Голова уже не варит.

[Федосеев Павел]

Ага, значит есть ввод, сортировка и вывод массива.
Остались "копейки" - найти индексы минимального и максимального элементов, а также сортировать в порядке убывания (причём не весь массив, а только его часть).
Ну вот смотри. Поиск минимального

  Imin:=1;
  for i:=2 to n do
    if a[Imin]>a[i] then
      Imin:=i;

Похоже находится индекс максимального элемента массива - Imax.
Сортировка в порядке убывания - замени условие в while на (x<a[j]).
Может случится, что Imin>Imax, тогда поменяй местами

  if Imin>Imax then
  begin
    i:=Imin;
    Imin:=Imax;
    Imax:=i;
  end;

Сортировка не всего массива а только его части от Imin до Imax

  for i:=Imin+1 to Imax do
  begin
    x:=a[i];
    j:=Imin;
    while x<a[j] do inc(j);
    for k:=i-1 downto j do
      a[k+1]:= a[k];
    a[j]:=x;
  end;

Ещё есть FAQ