import Control.Monad
import Data.List

solve (a:as)
    | a == 100  = 1
    | otherwise = solve' a as
    where
        solve' n [] = 100 `div` n
        solve' n (a:as) = solve' (gcd n a) as

main = do
    n <- readLn
    as <- sort <$> replicateM n readLn
    print $ solve (as)