Помогите написать програму

[TheVenny]

Пожалуйста напишите програму, а то у меня чето не получается она совсем.

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

P.S. зарание благодарен.

[Ganmaker]

можно на паскале типа так:
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.

[TheVenny]

Спасибо, вот теперь, думаю я разобрался с массивами.

[AlDelta]

Название.
Содержание.

Закрыто.