Дан вектор. Сформировать отдельно вектора (положительные и отрицательные).

[Виталик124]

Выводит нули!

program otdelno_min_vektor_otdelno_max_vektor;

var
  n, i, j, l,k,k1: integer;
  a: array[-100..100] of integer;
  b: array[-100..100] of integer;
  c: array[-100..100] of integer;

begin
  randomize;
  writeln('vvedite_razmernost_vektora');
  readln(n);
  k:=0;
  k1:=0;
  j:=0;
  l:=0;
  writeln('VEKTOR :');
  for i := 1 to n do
  begin
    a[i] := random(10) - 5;
    write('  ', a[i]);
  end;
  for i := 1 to n do
  begin
    if a[i] >= 0 then
    begin
      a[i] := b[j];
      j := j + 1; {тут можно было сделать с помощью команды Inc - увеличивает значение j на 1, пример: Inc(j)}
      k:=k+1;
    end;
    end;
    writeln;
  writeln('POLOGITELNIE = ', j);
  for i := 1 to n do
  begin
    if a[i] < 0 then 
    begin
      a[i] := c[l];
      l := l + 1;
      k1:=k1+1;
    end;
    end;
  writeln('OTRICATELNIE = ',l);
  writeln('POLOGITELNIY_VEKTOR :');
  for j := 1 to k+1 do
    write('  ', b[j]);
    writeln;
  writeln('OTRICATELNIY_VEKTOR :');
  for l := 1 to k1+1 do
  begin
    write('  ', c[l]);
end;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

Полностью ваше задание огласите, пожалуйста..

[ZX Spectrum-128]

А зачем у вас все присваивания идут в массив а? Поменять местами не пробовали

[Виталик124]

Дан вектор. Сформировать отдельно вектора (положительные и отрицательные элементы), то-есть минусы в минусы, плюсы в плюсы!

[ZX Spectrum-128]

Сообщение от Виталик124

Дан вектор. Сформировать отдельно вектора (положительные и отрицательные элементы), то-есть минусы в минусы, плюсы в плюсы!

Присваивание векторов посмотрите еще раз внимательно

[Виталик124]

Блин! Второй вечер сижу над этой проблемой! Капец! Пасиб, всё получилось! Спасибо!