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

[dadelin]

Так ведь?

Код

uses crt;
var a:array [1..100]of integer;
n,i,j,k,x,Imin,Imax:integer;
begin
clrscr;
randomize;
write('Введите массив: n=');readln(n);
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(200);;
write(a[i],' ');
end;
writeln;
Imin:=1;
  for i:=2 to n do
    if a[Imin]>a[i] then
      Imin:=i;
begin
x:=a[i];
j:=1;
while x<a[j] do inc(j);
for k:=i-1 downto j do a[k+1]:= a[k];
a[j]:=x;
end;
if Imin>Imax then
  begin
    i:=Imin;
    Imin:=Imax;
    Imax:=i;
  end;
  writeln('Отсортированный массив:');
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;
end.