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

[Militium]

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

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

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

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

[klem4]

Вторая что-то вроде этого:

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;
begin
  clrscr;
  for i := 1 to n do write(x[i]:3);

  curr := 1;

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

  i := n;

  while (i > curr) do begin
    if x[i] = 0 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;

  i := n;

  while (i > curr) do begin
    if x[i] < 0 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;


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

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