n, m = gets.chomp.split.map(&:to_i)
a = gets.chomp.split.map(&:to_i).sort

m.times do
  b, c = gets.chomp.split.map(&:to_i)

  idx = a.bsearch_index{|x| x >= c}

  if idx.nil?
    idx = n - 1
  elsif idx == 0
    next
  end

  cnt = 0
  lim = [n - 1, idx].min
  i = 0
  while i <= lim && a[i] < c && cnt < b
    a[i] = c
    i += 1
    cnt += 1
  end

  a.sort!
end
puts a.inject(&:+)