задача на масиви.

[kirito_17]

задача на масиви.
Задан массив размером n. Сформировать два массива, в первый включая положительные элементы заданного массива, а во второй - отрицательные

[Arigato]

bi := 0; ci := 0;
for i := 1 to n do begin
  if A[i] > 0 then begin
    Inc(bi);
    B[bi] := A[i];
  end;
  if A[i] < 0 then begin
    Inc(ci);
    C[ci] := A[i];
  end;
end;

На выходе в массиве B будут положительные числа, в C - отрицательные.

[kirito_17]

у меня оно ничего не виводит, мож кинуть полностю код?

[ZX Spectrum-128]

Добавьте описание переменных, ввод и вывод массива.