Сортировка элементов массива, Плиз... Помогите люди добрые!!! Опции

[Militium]

Тянула до последнего, сдавать завтра... Помогите решить, сама две задачки сделала, надо еще три, а голова неварит

Упорядочить элементы массива по убыванию - я даун

Отсортировать массив следующим образом: сначала все нулевые элементы, затем отрицательные и потом все положительные. - хоть убей....

Пусть даны числа R1, R2, R3 ... R17, среди которых есть как отрицательные, так и неотрицательные(положительные и нули). Получить x1*y1+x1*y2+...+x17*y17, где где x - отрицательные числа, в зятые в порядке их следования, y - неотрицательный, взятые в обратном порядке. - ваще улет...

[volvo]

можно подумать и попробовать сделать короче ;)

Собственно, объединить-то практически одинаковые циклы надо было сразу... Copy+Paste - не наш метод

uses crt;

const
  n = 11;

var
  x: Array [1..n] of Integer = (1, 0, -10, 0, 2, 3, -10, -3, 4, 0, 0);
  i, j, T, curr: Integer;

  k, divider: integer;

begin
  clrscr;
  for i := 1 to n do write(x[i]:3);


  curr := 1;
  while (curr < n) and (x[curr] = 0) do inc(curr);


  for k := 0 downto -1 do begin

    i := n;

    while (i > curr) do begin

      divider := abs(x[i]);
      if x[i] = 0 then inc(divider);

      if (x[i] div divider) = k then begin
        inc(curr);
        for j := i downto curr do begin
          T := x[j];
          x[j] := x[j - 1];
          x[j - 1] := T;
        end;
      end else dec(i);
    end;

  end;

  writeln;
  for i := 1 to n do write(x[i]:3);
  readln;
end.