Помощь с решением задачи с массивом

[Slcotix]

Найти мин/макс число в массиве и сдвигом поставить в начало/конец

Вообщем нужно сделать рандомный массив от -50,50
После нужно найти мин значение и сдвигом поставить в начало массива.
Далее найти Макс элемент и так же сдвигом
поставить уже в конец.

Пример: 43 23 12 42 32
12 23 42 32 43

[ForenLi]

И в чем проблема?

[Slcotix]

Не могу сдвинуть

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

И в чем проблема?

Не могу сдвиг сделать

[ForenLi]

цикл с номера до 1 поменять(элемент с номером номер, элемент с номером номер-1)
и охоже в другую сторону

[Slcotix]

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

цикл с номера до 1 поменять(элемент с номером номер, элемент с номером номер-1)
и охоже в другую сторону

У меня представления этого в коде нет, вот было задание до этого поменять их местами я сделал, теперь попросили так, и у меня ступор

[ForenLi]

А теперь добавить цикл и все.

[Slcotix]

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

А теперь добавить цикл и все.

А как код этого цикла будет выглядеть

[ForenLi]

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

цикл с номера до 1 поменять(элемент с номером номер, элемент с номером номер-1)

я ж уже написал, надо только операторы подставить

[newerow1989]

var p: array[1..10] of integer;
    i, im, z: integer;
begin
   Randomize;
   for i:=1 to 10 do
   begin
      p[i]:=-50+Random(101);
      Write(p[i]:3, '  ');
   end;
   Writeln;
   Writeln;
   im:=1;
   for i:=2 to 10 do
      if p[im]>p[i] then
         im:=i;
   z:=p[im];
   for i:=im downto 2 do
      p[i]:=p[i-1];
   p[1]:=z;
   im:=1;
   for i:=2 to 10 do
      if p[im]<p[i] then
         im:=i;
   z:=p[im];
   for i:=im to 9 do
      p[i]:=p[i+1];
   p[10]:=z;
   for i:=1 to 10 do
      Write(p[i]:3, '  ');
   Writeln;
   Readln;
end.

[digitalis]

Хорошо у них в заведении поставлено дело с секретностью: требуемый язык программирования и под пыткой не выдадут. Хорошо, что у newerow1989 дар: протелепал, что это Паскаль. А если нет? Всяко бывает - зима, морозы, помехи в телепать-канале...