import Data.List

toDouble :: Int -> Double
toDouble = fromIntegral

step :: Int -> Int -> (Int,Int) -> (Int,Int) -> (Int,Int)
step t a (accIdx,accV) (idx,v)
    | d2 <= d1 = (idx,v)
    | otherwise = (accIdx,accV)
    where
        d1 = abs $ (toDouble a) - (toDouble t - toDouble accV * 0.006)
        d2 = abs $ (toDouble a) - (toDouble t - toDouble v * 0.006)

main = do
    n <- readLn :: IO Int
    [t,a] <- map read . words <$> getLine :: IO [Int]
    hs <- map read . words <$> getLine :: IO [Int]
    print $ fst $ foldl' (step t a) (0,10^9) $ zip [1..n] hs