import Data.List
import Data.Maybe

step :: Double -> Double -> Double
step a x = (a+x) / (fromIntegral 2)

main = do
    getLine
    xs <- sort . map read . words <$> getLine :: IO [Double]
    print $ foldl1 step xs