n = gets.chomp.to_i
k = gets.chomp.to_i

nums = []
n.times do
  nums << gets.chomp.to_f
end
nums.sort!
nmax = nums.pop

nums.pop(k-2)

nmin = nmax
nums.size.times do
  nmin = [nmin, nums.inject(:+) / nums.size].min
  nums.pop
end
puts (nmax - nmin).round