# スペース区切りの整数の入力
n, q =gets.chomp.split.map(&:to_i)
# スペース区切りの整数の入力
stones = gets.chomp.split.map(&:to_i)

l = r = []

q.times do |i|
  l[i], r[i] = gets.chomp.split.map(&:to_i)
end

q.times do |j|
  puts stones[l[j]-1..r[j]-1].uniq.size
end
