var
  a: array[1..255] of real;
  i, h, n: integer;
  m, sr: real;

begin
  readln(n, m);
  for i := 1 to n do
  begin
    readln(a[i]);
    if a[i] < m then 
    begin
      sr := sr + a[i];
      h := h + 1;
    end;
  end;
  sr := sr / h;
  writeln(sr:1:2);
end.