Сформировать 2 новых массива

[Анна-Мария]

Дан массив A размера N. Сформировать два новых массива B и C: в массив B записать все положительные элементы массива A, в массив C — все отрицательные (сохраняя исходный порядок следования элементов). Вывести вначале размер и содержимое массива B, а затем — размер и со¬держимое массива C.

[ROMA2PVT]

Ну давай хвались наработками Анна-Мария.

[Ol'ga_new]

for i:=1 to n do
if A[i]>0 then 
 begin
   B[k]:=A[i];
   k:=k+1;
 end else
begin
C[l]:=A[i];
l:=l+1;
end;

здесь k-количество элементов массива B, а l-количество элементов C