program main
  implicit none
  integer :: n, t, a, h(1000), i, cand
  real(8) :: di, d

  read(*, *) n
  read(*, *) t, a
  read(*, *) h(1:n)

  di = abs(a - (t - h(1) * 0.006d0))
  cand = 1
  do i = 2, n
    d = abs(a - (t - h(i) * 0.006d0))
    if (di > d) then
      di = d
      cand = i
    end if
  end do
  write(*, "(i0)") cand
end program main
