import Control.Monad (replicateM)

main :: IO ()
main = do
  n <- readLn :: IO Int
  k <- readLn :: IO Int
  ns <- replicateM n readLn :: IO [Int]

  print $ maximum ns - minimum ns