program A9;

const
  max_idx = 1 + 20;

type
  vector = array [1..max_idx]of integer;

var
  A, B, C: vector; 
  i, k, l: byte;

begin
  randomize();
  writeln('Начальный массив случайных данных:');
  write('C [');
  for i := 1 to max_idx do 
  begin
    A[i] := random(-256, 256);
    write(A[i], ' ');
  end;
  writeln(' ]');
  
  k := 1; //Количество четных
  l := 1; //Количество нечетных
  
  for i := 1 to max_idx do 
    if (A[i] > 0) then begin
      B[k] := A[i];
      k := k + 1
    end 
    else if (A[i] < 0) then begin
      C[l] := A[i];
      l := l + 1;
    end;
  
  writeln(' ');
  
  k := k - 1;
  writeln('Положительных чисел: ', k);
  write('B [ ');
  for i := 1 to k do 
    write(B[i], ' ');
  writeln(' ]');
  
  writeln(' ');
  
  l := l - 1;
  writeln('Положительных чисел: ', l);
  write('C [ ');
  for i := 1 to l do 
    write(C[i], ' ');
  writeln(' ]');
end.