Помогите с масивом Опции

[Lesh]

Дано массив (X) размерностью n.
Нужно Превратить его так, чтобы в начале массива находились додатны элементы в порядке их следования в исходном массиве, а после них отрицательное элементы в порядке возрастания по значению, если последний элемент отрицательное и его абсолютное значение четное. В противном случае переставить элементы так чтобы произошла смена флангов, то есть первый элемент оказался на последнем месте, а последний на первом месте. Второй элемент оказался на предпоследнем месте, а предпоследний на втором месте и т.д
Ограничения - создание вспомогательного массива предыдущее сортировки исходного массива позростанню (убиванию) его элементов не разрешается.
буду очень благодарен)

[Lesh]

Вот что получилось. но как то не так( + не знаю как сделать смену флангов.

 
program lesh;
   uses crt;
  var x:array [1..99] of integer;
     g,s,m,n,k,i:integer;
    begin
    clrscr;
    textcolor(red);
     writeln('vod n');
     readln(n);
     writeln('vvedite e-tu massiva');
     for i:=1 to n do
     readln(x[i]);
     writeln;
     for i:=1 to n do
     writeln('x[',i,']=',x[i]);
     if x[n]<0 then
     begin
     x[n]:=g;
     s:=abs(g);
      k:=s mod 2 ;

      if k=0 then
      begin

         for i:=1 to n-1 do
       if x[i]>x[i+1] then
     begin
     m:=x[i];
     x[i]:=x[i+1];
     x[i+1]:=m;
     end;
     writeln;
      for i:=1 to n do
     writeln('x[',i,']=',x[i]);

    end
    else
    readln;
     end.

Сообщение отредактировано: Lesh - 16.02.2010 18:01