from heapq import heappush, heappop, heapify
import sys
from collections import defaultdict, deque,Counter
from math import ceil, floor, sqrt, factorial,gcd
from itertools import permutations, combinations,product
from bisect import bisect_left, bisect_right
from copy import deepcopy
from functools import lru_cache #@lru_cache(maxsize=None)
from fractions import Fraction
sys.setrecursionlimit(10**6)
# input = sys.stdin.readline
vector1 = [[0, -1], [1, 0], [0, 1], [-1, 0]]
vector2 = [[0, 1], [1, 0], [-1, 0], [0, -1],
           [1,-1], [-1, 1], [1, 1], [-1, -1]]





def main():
    N,Q = map(int,input().split())
    A = list(map(int,input().split()))
    a = [val for val in A]
    a.sort()
    dist = defaultdict(int)
    for i in range(N):
        dist[i+1] = A[i]
    
    #print(d)
    for _ in range(Q):
        x,y = map(int,input().split())
        if dist[x] <= dist[y]:
            print(0)
        else:
            print(bisect_left(a,dist[x]) - bisect_right(a,dist[y]))
    
    


if __name__ == '__main__':
    main()