import Data.List
  ( findIndex, minimumBy )

main = do
  _ <- getLine
  [t,a] <- map read . words <$> getLine
  hs <- map read . words <$> getLine
  
  let ws = map (f t a) hs
  print . findIndex4Minimum $ ws

-- f :: Int -> Int -> Int -> Int
f :: Double -> Double -> Double -> Double
f t a h = abs( (t-h*0.006) - a )

findIndex4Minimum :: [Double] -> Int
findIndex4Minimum ws = snd . minimumBy c . zip ws $ [1..]
  where
    c x y = compare (fst x) (fst y)
