use proconio::input;
use proconio::fastout;

#[fastout]
#[allow(non_snake_case)]
fn main() {
    input! {
        (N, Q): (usize, usize),
        A: [usize; N],
    }
    assert!(1 <= N && N <= 500_000);
    assert!(1 <= Q && Q <= 500_000);
    assert!(A.iter().all(|&x| [0, 1, 9].contains(&x)));
    assert!(A.iter().filter(|&x| *x == 1).count() <= 8);
    let mut sum = vec![0; N+1];
    let mut idx = Vec::new();
    for i in 1..=N {
        if A[i-1] == 9 {
            sum[i] += 1;
        }
        else if A[i-1] == 1 {
            idx.push(i);
        }
    }
    for i in 0..N {
        sum[i+1] += sum[i];
    }
    for _ in 0..Q {
        input! {
            (l, r): (usize, usize),
        }
        assert!(A[l-1] != 0);
        assert!(1 <= l && l <= r && r <= N);
        let mut ans = sum[r] - sum[l-1];
        for &i in idx.iter() {
            if l <= i && i <= r {
                ans += r - i;
            }
        }
        println!("{}", ans);
    }
}