Последовательность, Ай нид хелп Опции

[Zundell]

Форумчане помогите плиз!Задача следующая:
Дана последовательность чисел Ai(i=1..n)!н-натуральное.
Получить две последовательности Bj и Ck.
В Bj должны войти числа больше числа P1 в Ck числа меньше P.Обе последовательности разложить по убывающей.

[klem4]

Что конкретно не получается ? Не понятен алгоритм или что ?

FAQ : Массивы, матрицы
FAQ: Методы сортировок

[Zundell]

С сортировкой все понятно..это не проблема...небольшие непонятки с тем как разбить данный массив(последовательность) на 2 массива удовлетворяющих условию!

[klem4]

j := 0;
k := 0;
for i := 1 to n do
 if a[i] > P1 then begin
   inc(j);
   b[j] := a[i]
 end
   else if a[i] < P then begin
     inc(k);
     c[k] := a[i];
   end;

[Zundell]

Огромное спасибо)