main = do
  getLine >> getLine
  xs <- map read . lines <$> getContents
  print $ let max = maximum xs; min = minimum xs in max - min
  where
    read' = read :: String -> Int