module Main where

import qualified Data.ByteString.Char8 as BS
import Data.Char
import Data.List
import Data.Maybe
import Control.Monad

main :: IO ()
main = do
  BS.getLine
  xn <- map (fst . fromJust . BS.readInt) . BS.words <$> BS.getLine
  let r = solve xn
  mapM_ print r

solve :: [Int] -> [Int]
solve xn = map (\x -> 50 - ceiling (fromIntegral (avr - x) / 2)) xn
  where
    avr = ceiling $ fromIntegral (sum xn) / fromIntegral (length xn)