Program zad3;
  var n,i,max,min,k,l,s:integer;
  p:real;
  a:array[1..20] of integer;
Begin
  read(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n do
    s:=s+a[i];
  p:=s/n;
  writeln(p :4:2);
  min:=a[1];
  for i:=2 to n do
    if a[i]<min then min:=a[i];
  max:=a[1];
  for i:=2 to n do
    if a[i]>1 then max:=a[i];
writeln(max-min);
l:=0;
  for i:=1 to n do
    if a[i]>p then l:=l+1;
writeln(l);
End.