program mas;
uses crt;
var const n = 10;
type matrix = array[1..n] of integer;
var
    a:matrix;
    i:integer;
    kol1:integer;
    kol2:integer;
begin
    clrscr;
    randomize;
    for i:= 1 to n do
begin
    a[i]:=random(10) - 5;
    write(a[i],' ' );
end;
    writeln;
    writeln;
    kol1:=0;
    kol2:=0;
    for i:= 1 to n do
begin
    if a[i] <  0
    then
    inc(kol1)
    else
    inc(kol2);
end;
    writeln(kol1);
    writeln(kol2);
    readln;
end.