Одномерные массивы. Решить программу

[Helen1]

В произвольно заданном одномерном массиве сформировать массив из положительных и массив из отрицательных элементов исходного массива.

[Helen1]

вы не правильно поняли.. я не приказываю, я прошу.

[Sciv]

вы не правильно поняли..

Лично до меня само задание не доходит. Как это:

В произвольно заданном одномерном массиве сформировать массив

Я так понимаю, что надо из одного массива 2 слабать?

Ну вот Вам код в пределах моего понимания задачи:

const n=10;

type massiv=array [1..n] of integer;

var a,b,c: massiv;
    i: integer;
    colb,colc: integer;

begin
  for i:=1 to n do ReadLn(a[i]); {Вводим массив}
  colb:=0;
  colc:=0;
  for i:=1 to n do             {Заполняем массивы согласно условию}
    if a[i]>=0 then begin
      inc(colb);
      b[colb]:=a[i];
    end
    else begin
      inc(colc);
      c[colc]:=a[i];
    end;
  WriteLn;
  for i:=1 to colb do Write(b[i],' ');  {Вывод массивов}
  WriteLn;
  for i:=1 to colc do Write(c[i],' ');
  ReadLn
end;

[Helen1]

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

[Sciv]

Тогда вместо

 for i:=1 to n do ReadLn(a[i]); {Вводим массив}

пишите

randomize;
for i:=1 to n do a[i]:=Random(20)-10;

[Helen1]

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

randomize;
for i:=1 to n do
a[i]:=Random(20)-10;
writeln(a[i]);

PS: выводит только последний элемент массива.

[Sciv]

только не пойму, почему основной массив не выводит на экран, а только два разделенных.

Потому что я его не выводил. Вот так выведет:

const n=10;

type massiv=array [1..n] of integer;

var a,b,c: massiv;
    i: integer;
    colb,colc: integer;

begin
  randomize;
  for i:=1 to n do begin
    a[i]:=Random(20)-10; {Вводим массив}
    Write(a[i],' ');
  end;
  WriteLn;
  colb:=0;
  colc:=0;
  for i:=1 to n do             {Заполняем массивы согласно условию}
    if a[i]>=0 then begin
      inc(colb);
      b[colb]:=a[i];
    end
    else begin
      inc(colc);
      c[colc]:=a[i];
    end;
  WriteLn;
  for i:=1 to colb do Write(b[i],' ');  {Вывод массивов}
  WriteLn;
  for i:=1 to colc do Write(c[i],' ');
  ReadLn
end;

[Helen1]

Спасибо большое)
Вы не представляете, как мне помогли.
Поступила на первый курс в вуз, а программу колледжа уже давно забыла..
но потихоньку начинаю вспоминать)
Благодарна Вам!