main :: IO ()
main = do
  n <- readLn :: IO Int
  [t, a] <- map read . words <$> getLine :: IO [Double]
  hs <- map read . words <$> getLine
  let id = foldl1 (\(ai,ah) (i,h) -> if abs (a-(f t h)) < abs (a-(f t ah)) then (i,h) else (ai,ah)) $ zip [1..n] hs 
  print $ fst id 

f :: Double -> Double -> Double
f t h = t-h*0.006 :: Double