uses crt;
var n:byte;
a:array[0..100] of integer;
procedure tao(var a:array of integer;n:byte);
var i:byte;
begin
for i:=1 to n do
a[i]:=random(401)-200;
end;
procedure xuli(a:array of integer;n:byte);
var d:word;
i:byte;
t:real;
begin
d:=0;t:=0;
for i:=1 to n do
begin
if (50<=a[i]) and (a[i]<=150) then
begin
inc(d);
t:=t+a[i];
end;
end;
if d>0 then t:=t/d;
writeln(d,#13#10,t:0:2);
end;
begin
clrscr;
randomize;
readln(n);
tao(a,n);
xuli(a,n);
end.