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.