Module Module1

    Sub Main()
        'let'
        Dim N As Long = Console.ReadLine()
        Dim A() As String = Console.ReadLine().Split()

        'var'
        Dim ans As Long = Long.MaxValue

        For i As Long = 0 To N - 1
            'var'
            Dim cnt As Long = 0
            Dim j As Long = CLng(A(i))

            While j Mod 2 = 0
                cnt += 1
                j \= 2
            End While

            ans = Math.Min(ans, cnt)
        Next

        Console.WriteLine(ans)

    End Sub

End Module
