import Control.Applicative
import Control.Monad

main = do
  n <- getLine
  xs <- replicateM n getLine
  putStrLn $ show . solve xs
  
solve :: [Int] -> Int -> Int
solve xs acc =
  if dividable xs then
    solve (map (_ `div` 2) xs) (acc+1)
  else
    acc
    
dividable :: [Int] -> Bool
dividable xs =
  if flag == 0 then True else False
    where flag = fold (+) $ map (_ `mod` 2) xs