Сортировка массива.

[n0rma1]

Доброго времени суток формчане Очень прошу помочь с решением следующей задачи, не хватает баллов до зачёта :P

• Отсортировать элементы одномерного массива между минимум и максимумом в порядке возрастания.

Заранее большое спасибо !!!

[Grag]

Ищешь минимум в массиве, запоминаешь его индекс. Затем ищешь максимум в массиве, запоминаешь его индекс. Далее определяешь какой из этих индексов меньше и в цикле между этими индексами делаешь сортировку элементов массива. Все очень просто!

[n0rma1]

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

Ищешь минимум в массиве, запоминаешь его индекс. Затем ищешь максимум в массиве, запоминаешь его индекс. Далее определяешь какой из этих индексов меньше и в цикле между этими индексами делаешь сортировку элементов массива. Все очень просто!

Смысл то задачи я понимаю вот реализацию этого смысла в программном коде у меня осуществить не получается

[Grag]

Да я тебе не смысл задачи расписал, а алгоритм ее решения...

[ROMA2PVT]

Program massiv;
var
    mas:array[1..100] of integer;
    p,max,n,min,i,j:integer;
begin
write('Введите количество элементов массива: ');
readln(n);
randomize;
writeln('Исходный массив: ');
for i:=1 to n do
begin
mas[i]:=random(10);
write(mas[i],' ');
end;
writeln;
max:=1;
min:=1;
for i:=1 to n do
if mas[i]>mas[max] then max:=i
else
if mas[min]>mas[i] then min:=i;
if max>min  then
begin
i:=max;
max:=min;
min:=i;
end;
for i:=max+2 to min-1 do
for j:=min-1 downto i do
if mas[j-1]<mas[j] then
begin
p:=mas[j-1];
mas[j-1]:=mas[j];
mas[j]:=p;
end;
writeln('Результирующий массив: ');
for i:=1 to n do
begin
write(mas[i],' ');
end;
readkey;
end.

[n0rma1]

Спасибо конечно, но данный код не совсем осуществляет поставленную задачу Скажем даже так - не сортирует :P Вообщем покапались в коде, сделали сортировку методом "пузырька" и ввод массива с клавиатуры, вот что вышло, может кому пригодится

Program massiv;
uses crt;
var
    f:boolean;
    mas:array[0..100] of integer;
    p,max,c,n,min,imin,imax,i,j:integer;
begin
clrscr;
write('Введите количество элементов массива: ');
readln(n);
for i:=1 to n do
begin
Writeln('ВВедите ',i,' элемент массива');
Readln(mas[i]);

writeln;
end;
Writeln('Исходный массив: ');
for i:=1 to n do
write(' ',mas[i]);
Writeln;

min:=mas[1];
imin:=1;
max:=mas[1];
imax:=1;
for i:=1 to n do
 begin
  if mas[i]>max then
   begin
    max:=mas[i];
    imax:=i;
    end;
  if mas[i]<min then
   begin
    min:=mas[i];
    imin:=i;
    end;
 end;

writeln ('Максимальое= ',max);
Writeln('Минимальное= ',min);
repeat
  f:=false;
  for i:=1 to n-1 do
  begin
  if mas[i]>mas[i+1] then
    begin
      f:=true;
      c:=mas[i];mas[i]:=mas[i+1];mas[i+1]:=c;
    end;
  end;
until not f;

writeln('Результирующий массив: ');
for i:=1 to n do
begin
write(mas[i],' ');
end;
end.

ROMA2PVT спасибо за толчок к действию

[Grag]

В вашей программе есть ДВА существенных НО!!!
Во-первых, вы сортируете массив целиком, проходя с первого элемента по последний, а не МЕЖДУ МАКСИМУМОМ и МИНИМУМОМ, как поставлено в условии задачи...
Во-вторых, я писал, что необходимо проверять индексы максимума и минимума в массиве, так как максимум может располагаться раньше чем минимум и наоборот...
Так что дорешивайте свою задачу...

[ROMA2PVT]

Не за что.Ток он сортирует всё прекрасно.

[ROMA2PVT]

В вашей программе есть ДВА существенных НО!!!
Во-первых, вы сортируете массив целиком, проходя с первого элемента по последний, а не МЕЖДУ МАКСИМУМОМ и МИНИМУМОМ, как поставлено в условии задачи...
Во-вторых, я писал, что необходимо проверять индексы максимума и минимума в массиве, так как максимум может располагаться раньше чем минимум и наоборот...Так что дорешивайте свою задачу...

Согласен с Grag'ом сортирока всего массива идёт.Впрочем эт вам решать.

[n0rma1]

Блин, эта сессия меня доведёт до седины ... сам не понял какую задачу поставил, простите грешного, и вправду, сам решил другую задачу вместо нужной Всё верно, написанная программа подходит. Впредь буду внимательнее и пожалуй надо бы поспать :P