Помогите пожалуста с задачей.

[GHOST_DOG]

Задача на Pascal.
Дан массив A(n). Вывести в порядке следования все отрицательные числа, затем все положительные.
Заранее благодарен.

[Sazary]

Что конкретно непонятно?
Сначала вводите массив. Затем цикл по всем элементам. Если элемент отрицательный, то выводим его.
Потом второй цикл. То же самое, только для положительных.

[GHOST_DOG]

Сообщение от Sazary

Что конкретно непонятно?
Сначала вводите массив. Затем цикл по всем элементам. Если элемент отрицательный, то выводим его.
Потом второй цикл. То же самое, только для положительных.

У меня выводятся только отрицательные.

[Sazary]

У меня выводятся только отрицательные.

Так выложите ваш неправильный код (не забыв заключить его в теги CODE - "#" на панели). Посмотрим что не так.

[GHOST_DOG]

Program zadacha2;
uses crt;
var a:array[1..10] of integer;
    i:integer;
begin
clrscr;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<0 then write(' ',a[i]);
if a[i]>0 then write(' ',a[i]);
readkey;
end.

[Sazary]

Как я уже сказал, здесь нужно два цикла.

Program zadacha2;
uses crt;
var a:array[1..10] of integer;
    i:integer;
begin
clrscr;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
 if a[i]<0 then write(' ',a[i]);
writeln;
for i:=1 to 10 do
 if a[i]>0 then write(' ',a[i]);
readkey;
end.

[GHOST_DOG]

Сообщение от Sazary

Как я уже сказал, здесь нужно два цикла.

Program zadacha2;
uses crt;
var a:array[1..10] of integer;
    i:integer;
begin
clrscr;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
 if a[i]<0 then write(' ',a[i]);
writeln;
for i:=1 to 10 do
 if a[i]>0 then write(' ',a[i]);
readkey;
end.

Спсибо за помощь.