n, m = gets.chomp.split(" ").map(&:to_i)
a = gets.chomp.split(" ").map(&:to_i).sort
arr = []
m.times do
    b, c = gets.chomp.split(" ").map(&:to_i)
    arr << Array.new(b, c)
end
arr = arr.flatten.sort.reverse
arr.each_with_index do |e, i|
    break if e <= a[i]
    a[i] = e
end
puts a.inject(:+)