{ Дана таблица А. Записать '+' элементы таблицы А в таблицу В '-' элементы таблицы А в табл С. }

uses crt;
var a,b,c : array [1..10] 
of longint;
    n,k,i,l : longint;
begin
  clrscr;
  write('n = ');readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']=');
	readln(a[i]);
  end;

  for i:=1 to n do
  if a[i]<0 then 
  begin
inc(k);b[k]:=a[i];
end
else begin
inc(l);c[l]:=a[i];
end;
   writeln('положительное:');
    for i:=1 to l do 
	writeln('c[',i,']=',c[i]);
   writeln('отрицательное:');
    for i:=1 to k do
	writeln('b[',i,']=',b[i]);
  readln;
end.