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

[Militium]

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

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

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

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

[klem4]

Щас если успею, сделаю короче, одним циклом.

Вот третья:

const
  n = 11;

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

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

  i := 1;
  j := n;
  s := 0;

  repeat
    while (i < j) and (x[i] <= 0) do inc(i);
    if (i < j) then begin
      while (j > i) and (x[j] >= 0) do dec(j);
      if (i < j) then s := s + x[i] * x[j];
      dec(j);
      inc(i);
    end;
  until (i >= j);

  writeln;
  writeln(s);
end.