module Main where

import           Control.Applicative
import           Data.Monoid

main :: IO ()
main = do
  getLine
  solve . map read . words <$> getLine >>= putStrLn

solve :: [Float] -> String
solve xs = show $ 1 / foldl (\ acc x  -> acc + (1 / x)) 0 xs
