main = do
    [n,a,b] <- map read . words <$> getLine
    h <- map read . words <$> getContents
    print $ solve h a b
inf = 10^9+1
solve h a b = bs inf 0 (f h a b)
  where bs ok ng f
          | abs (ok-ng) <= 1 = ng + 1
          | f mid = bs mid ng f
          | otherwise = bs ok mid f
            where mid = (ok + ng) `div` 2
        f h a b c = s <= c
          where s = sum [max 0 (hi - b*c + a - b - 1) `div` (a-b) | hi <- h]
