main :: IO ()
main = do
  _ <- readLn :: IO Int
  xs <- map read . words <$> getLine :: IO [Int]
  print $ solve xs

solve :: [Int] -> Int
solve xs 
  | any odd xs = 0
  | otherwise =
      1 + solve (map (`div`2) xs)