import Data.List

judgeFunc :: Float -> Float -> (Int, Float) -> (Int, Float) -> (Int, Float)
judgeFunc t a acc x =
  let
    cur = abs $ a - (t - (snd x * 0.006))
  in
    if cur < snd acc
    then (fst x, cur)
    else acc

func :: Float -> Float -> [(Int,Float)] -> Int
func t a xs = fst $ foldl' (judgeFunc t a) (0, 10000) xs

main = do
  _ <- getLine
  line1 <- getLine
  line2 <- getLine
  let
    req = map read $ words line1 :: [Float]
    xs = map read $ words line2 :: [Float]
    t = req !! 0
    a = req !! 1
    ans = func t a $ zip [1..] xs
  putStrLn $ show ans
