import Data.Ord
import Data.List

main :: IO ()
main = do
  _ <- getLine
  [t,a] <- getInts
  hs <- getInts
  print $ solve t a (zip [1..] hs)

getInts :: IO [Int]
getInts = map read . words <$> getLine

solve :: Int -> Int -> [(Int,Int)] -> Int
solve t a hs = fst $ minimumBy (comparing snd) [(i,abs $ a' - (t' - h'*0.006)) | (i,h) <- hs, let h' = fromIntegral h]
  where t' = fromIntegral t
        a' = fromIntegral a
