import Control.Monad

main = do
  n <- readLn
  _ <- getLine
  ns <- replicateM n readLn
  print $ maximum ns - minimum ns