Массивы. Необычная сортировка

[shelest]

В массиве A наименьший элемент поместить на первое место, наименьший из оставшихся на последнее,следующий по величине на второе, следующий на предпоследнее и так по середины массива.


подскажите плиз алгоритм.

[Скандербег]

Читайте свой первый пост, это и есть алгоритм действий.
А более конкретно (как один из вариантов): объявляется еще один массив с тем же самым количеством элементов как в исходном. Исходный массив сортируется в возрастающем порядке. Элементы из исходного массива копируются (переносятся) во второй в том порядке, какой описан в алгоритме задания.

[Serge_Bliznykov]

забавная задачка..
исключительно, чтобы мозги не заплесневели, размялся..

const n = 15;
var
  a: array[1..n] of integer;
  i, Beg, Fin, CurI, kTemp : integer;
  MinIndex : integer;

begin
  { заполняем массив}
  for i:=1 to n do a[i] := n-i+1;

  { выводим массив}
  WriteLn('---- исходный массив ----');
  for i:=1 to n do Write(a[i]:3);
  WriteLn;

  { собственно алгоритм "необычной" сортировки}
  Beg := 1;
  Fin := n;
  CurI := 1;

  while CurI<>((n div 2)+1) do
  begin
     { ищем минимум от Beg до Fin }
     MinIndex := Beg;
     for i:=Beg to Fin do
       if a[i]<a[MinIndex] then
         MinIndex := i;

     { вот собственно процедура записи минимального значения }
     if CurI<((n div 2)+1) then begin
         { пишем в Beg }
         if MinIndex<>Beg then begin
           kTemp := a[Beg];
           a[Beg] := a[MinIndex];
           a[MinIndex] := kTemp;
         end;
         Inc(Beg);
         CurI := Fin;
     end
     else begin
         { пишем в Fin }
         if MinIndex<>Fin then begin
           kTemp := a[Fin];
           a[Fin] := a[MinIndex];
           a[MinIndex] := kTemp;
         end;
         Dec(Fin);
         CurI := Beg;
     end;
  end;

  { выводим результат }
  WriteLn('---- результат массив ----');
  for i:=1 to n do Write(a[i]:3);
  WriteLn;


end.

p.s. язык прграммирования не указан, поэтому позволил себе взять Паскаль

p.p.s. на красоту и изящество решения не претендую.
наверняка можно решить проще и изящнее... ну оставляю это другим...