import Data.List

main :: IO ()
main = do
  n <- getLine
  vn <- sort . map (read :: String -> Double) . words <$> getLine
  print $ ans vn

ans :: Double -> Double
ans vn = foldl1 (\acc k -> (acc+k)/2) vn