import Data.List
main = do
  _ <- getLine
  [t,a] <- map read . words <$> getLine
  h <- map read . words <$> getLine
  let i = map (f a t) h
  print $ 1 + g 0 (elemIndex (minimum i) i)
f z y x = abs (y - x * 0.006 - z)
g d value =
  case value of
    Nothing -> 0
    Just a -> a
