import Control.Applicative
import Control.Monad

solve :: [Float] -> Float
solve xs = 1 / sum (map ((/) 1) xs)

main :: IO ()
main = do
    _ <- getLine
    line <- map read . words <$> getLine
    print $ solve line
