import Control.Monad

main = join (sub <$> get) >>= print

sub [n,a,b] = sol [n,a,b] <$> replicateM n readLn

get = fmap read . words <$> getLine

sol [n,a,b] hs = c + if sum hs'>c then 1 else 0
  where
  s = a + (n-1)*b
  h = sum hs
  c = ceil h s
  hs'= fmap (flip ceil (a-b)) . filter (>0) $ fmap (subtract (c*b)) hs

ceil p q = (p+q-1) `div` q