Var
 A:Array[1..3,1..4] of Integer;
 i,j,Npos,Nneg:Byte;
Begin
 Randomize;
 Nneg:=0;
 Npos:=0;
 For i:=1 to 3 do
  begin
   For j:=1 to 4 do
    begin
     A[i,j]:=20-Random(40);
     If A[i,j]>0 then Inc(Npos);
     If A[i,j]<0 then Inc(Nneg);
     Write(A[i,j]:8);
    end;
   Writeln;
  end;
 Writeln;
 Writeln(Npos,' positive and ',Nneg,' negative');
 Readln
End.