readF :: String -> Float
readF = read

main = do
  getLine
  [t, a] <- map readF . words <$> getLine
  xs <- map readF . words <$> getLine
  print $ snd $ minimum $ zipWith (\x i -> (abs $ (t - a) / 0.006 - x, i)) xs [1..]
  