import Data.ByteString.Char8 (ByteString)
import qualified Data.ByteString.Char8 as B
import Data.List
import Data.Char (isSpace)

main :: IO ()
main = do
  n <- readLn
  solve n <$> f >>= mapM_ print
  where
    f = readil B.readInt <$> B.getLine

solve :: Int -> [Int] -> [Int]
solve n xs = map f xs
  where
    f x = ((100 + x) * n - sm) `div` (2 * n)
    sm = sum xs

readil :: Integral a =>  (ByteString -> Maybe (a, ByteString)) -> ByteString -> [a]
readil f = unfoldr $ f . B.dropWhile isSpace