program stock;
var
a:array[1..1000] of real;
i,j,n,m,x,nn:longint;
ss,mm,max,xx:real;
begin
assign(input,'stock.in');
assign(output,'stock.out');
reset(input);
rewrite(output);
read(n);
x:=0;
max:=0;
for i:=1 to n do read(a[i]);
read(m);
mm:=m;
for i:=2 to n do
for j:=1 to i-1 do
begin
if a[i]>a[j] then
begin
inc(x);
nn:=trunc(mm/a[j]);
ss:=nn*a[i]-mm;
if ss>max then max:=ss;
end;
end;
writeln(max:0:3);
xx:=x/(n*(n-1)/2);
writeln(xx:0:3);
close(input);
close(output);
end.