нужно исправить ошибку

[TheVenny]

условие:
Сгенерировать положительные и отрицательные псевдослучайные значение элементов одноизмеримого массива, введя количество элементов с клавиатуры. Переставить элементы массива так, чтобы сначала были расположенные все положительные элементы, потом все отрицательные. Порядок среди положительных и отрицательных элементов должен сохраниться.

прога:
program test;
uses
crt;
var
n,i:integer;
a:array[1..20] of integer;
begin
clrscr;
write('vvedite diapazon n=');
readln(n);
randomize;
for i:=1 to 20 do
begin
a[i]:=trunc(random(n)-n/2);
writeln('a[',i,']=',a[i])
end;
readkey;
end.

ета програма генерирует псевдослучайные елементы масива, но ана не ставит сначала положытельные елементы а потом отрицательные, можете исправить ето, штоб она сначала ставила все положытельные, а потом отрицательные, при етом порядок елементов должен сохранятся.

[mihali4]

"ета програма", "елементы масива", "но ана не ставит", "положытельные елементы", "ето, штоб", "при етом"... Да, уважаемый Карась, еще "ошыбку" (просто когда писал, перед глазами был только последний экзерсис...)
И давно во втором классе школы начинают изучать программирование?

Автору: злиться и обижаться не следует. Мы попутно обучаем владению русским языком. Сами же потом спасибо скажете...

[Карась]

"нужно исправить ошыбку"

[Vladya]

Я конечно не величайший програмист но помоему у Вас есть маленькая ошибочка в вот этой строке:
write('vvedite diapazon n=');
насколько я знаю нужно написать Writeln

[puporev]

насколько я знаю нужно написать Writeln

И программа сразу заработает.

[mihali4]

To Vladya
Открою вам страшную тайну - эти операторы отличаются только тем, что тот, который предложили вы, тс-с-с... не переводит строку на следующую (или переводит? Убей, не помню.).

[puporev]

Еще боле страшная тайна, что как раз writeln и переводит.

[TheVenny]

Я с украины, на ошибки прошу не обращать внимания.
Мне в этой программе нада всеволиш добавить "чтото" чтобы она совпадала с условием, а именно ставила сначала все цифры со знаком "+", а затем с знаком "-".

[TheVenny]

Прошу не флудить просто так, а просто написать што мне нужно добавить в программе.

[L_M]

не очень понял условие: как ставить в определенном порядке сохраняя порядок? В твоей программе просто генерируются числа и выводятся. как понимаю я из надосначал сгенерировать(random...), потом отсортировать и вывести?