 Module Atcorder3

        Sub Main(ByVal args() As String)

            Dim getN As Integer = 0
            Dim cnt As Integer = 0
            Dim n As Integer = 0
            Dim Ans As Integer = 1 << 29

            getN = Console.ReadLine()

            Dim arr(getN) As String

            arr = Split(Console.ReadLine())

            '配列の各要素を N mod 2していって、割れる回数の一番少ない数を求める
            For i As Integer = 0 To getN - 1
                Dim compareAns As Integer = 0
                n = arr(i)

                While (n Mod 2) <= 0
                    cnt += 1
                    n = n / 2
                End While

                If Ans > cnt Then
                    Ans = cnt
                End If
            Next

            Console.WriteLine(Ans)

        End Sub

    End Module