main :: IO()
main = do
    n <- getLine
    ls <- map read . words <$> getLine
    print $ countDiv ls

countDiv :: [Int] -> Int
countDiv [] = 0
countDiv ls
    | a == 0				= 1 + countDiv [div x 2|x <- ls]
    | otherwise				= 0
    where a = length [x | x <- ls, mod x 2 /= 0]
