import Data.List

solver::Int -> Int -> [Int] -> Int
solver t a= fst.head.(sortBy (\ (_,x) -> \ (_,y) -> compare (f x) (f y))).(zip [1..])
                where f x = abs ((fromIntegral a) - (fromIntegral t) + 0.006*(fromIntegral x))

main::IO()
main=do
  _<-getLine
  ta<-getLine
  let t:a:[]= map read (words ta)
  dat<-getLine
  let d = map read (words dat)
  print (solver t a d)
