const n = 15;
var a: array[1..n] of integer;
i,k1,k2: integer;
begin
Randomize;
for i:=1 to n do
a[i]:=random(50)-25;
write(a[i],' ');
end;
writeln;
k1:=0; k2:=0;
if a[i]>0 then k1:=k1+1
else if a[i]<0 then k2:=k2+1;
writeln(k1,' ',k2,' ',n-k1-k2)
end.
const n = 15;
var a: array[1..n] of integer;
i,k1,k2: integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(50)-25;
write(a[i],' ');
end;
writeln;
k1:=0; k2:=0;
for i:=1 to n do
if a[i]>0 then k1:=k1+1
else if a[i]<0 then k2:=k2+1;
writeln(k1,' ',k2,' ',n-k1-k2)
end.