n, m = gets.chomp.split.map(&:to_i)
a = gets.chomp.split.map(&:to_i).sort
b = []
m.times do |i|
  b[i] = gets.chomp.split.map(&:to_i).reverse
end
b.sort!.reverse!
i = 0
b.each do |bb|
  bb[1].times do
    if i < n && a[i] < bb[0]
      a[i] = bb[0]
    else
      puts a.inject(:+)
      exit
    end
    i += 1
  end
end
puts a.inject(:+)
