Module Module1
    Sub Main()
            Dim N As Integer = Integer.Parse(Console.ReadLine)
            Dim TA() As String = Console.ReadLine.Split(" ")
            Dim H() As String = Console.ReadLine.Split(" ")
            Dim minNo As Integer = 0
            Dim minAns As Double = Double.MaxValue
            Dim nowWork As Double
            For i As Integer = 0 To H.Length - 1
                nowWork = System.Math.Abs(TA(1) - (Integer.Parse(TA(0)) - (Integer.Parse(H(i)) * 0.006)))
                If nowWork < minAns Then
                    minNo = i
                    minAns = nowWork
                End If
            Next
            Console.WriteLine(minNo + 1)
    End Sub
End Module
