main = do
    _ <- getLine
    line <- getLine
    line2 <- getLine
    let (x : y : _) = map read . words $ line
    let hs = map read . words $ line2
    putStrLn . show $ solve x y hs

-- |
-- >>> solve 12 5 [1000, 2000]
-- 1
-- >>> solve 21 (-11) [81234, 94124, 52141]
-- 3

solve :: Int -> Int -> [Int] -> Int
solve t a (h:hs) = fst . foldl max' (1, (1, temp h)) $ hs
    where
        temp h' = (realToFrac t) - (realToFrac h') * 0.006
        max' (xa, (xb, xc)) y
            | xc > temp y = (xa, (xb + 1, xc))
            | otherwise   = (xb + 1, (xb + 1, temp y))
