import Data.List
import Data.Maybe

main :: IO ()
main = do
  getLine
  [t, a] <- map read . words <$> getLine
  hs <- map read . words <$> getLine
  let mapped = map (\x -> abs $ t - x * 0.006 - a) hs
  print . (1+) . fromJust $ (minimum mapped) `elemIndex` mapped