#include <cstdio>
#include <vector>
#include <algorithm>
#include <map>
#include <queue>
#include <tuple>
#include <functional>
#include <cmath>
#define repeat(i,n) for (int i = 0; (i) < (n); ++(i))
#define whole(f,x,...) ([&](decltype((x)) y) { return (f)(begin(y), end(y), ## __VA_ARGS__); })(x)
using namespace std;

template <typename T>
struct segment_tree { // on monoid
    int n;
    vector<T> a;
    function<T (T,T)> append; // associative
    T unit;
    template <typename F>
    segment_tree(int a_n, T a_unit, F a_append) {
        n = pow(2,ceil(log2(a_n)));
        a.resize(2*n-1, a_unit);
        unit = a_unit;
        append = a_append;
    }
    void point_update(int i, T z) {
        a[i+n-1] = z;
        for (i = (i+n)/2; i > 0; i /= 2) {
            a[i-1] = append(a[2*i-1], a[2*i]);
        }
    }
    T range_concat(int l, int r) {
        return range_concat(0, 0, n, l, r);
    }
    T range_concat(int i, int il, int ir, int l, int r) {
        if (l <= il and ir <= r) {
            return a[i];
        } else if (ir <= l or r <= il) {
            return unit;
        } else {
            return append(
                    range_concat(2*i+1, il, (il+ir)/2, l, r),
                    range_concat(2*i+2, (il+ir)/2, ir, l, r));
        }
    }
};

map<int,int> count_kadomatsu(vector<int> const & a, int first, int last) {
    int n = a.size();
    int direction = first < last ? 1 : -1;
    map<int,int> acc;
    acc[first] = 0;
    map<int,vector<int> > que;
    repeat (i,n) que[direction * a[i]].push_back(i);
    segment_tree<map<int,int> > cnt(n, map<int,int>(), [&](map<int,int> const & a, map<int,int> const & b) {
        if (a.size() < b.size()) {
            map<int,int> c = b;
            for (auto it : a) c[it.first] += it.second;
            return c;
        } else {
            map<int,int> c = a;
            for (auto it : b) c[it.first] += it.second;
            return c;
        }
    });
    for (auto it : que) {
        int ai; vector<int> is; tie(ai, is) = it;
        ai *= direction;
        acc[ai] = acc[first];
        first = ai;
        for (int i : is) {
            auto l = cnt.range_concat(0, i);
            auto r = cnt.range_concat(i+1, n);
            for (auto lit : l) {
                for (auto rit : r) {
                    if (lit.first != rit.first) {
                        acc[ai] += lit.second * rit.second;
                    }
                }
            }
        }
        for (int i : is) {
            auto it = cnt.range_concat(i,i+1);
            it[ai] += 1;
            cnt.point_update(i, it);
        }
    }
    acc[last] = acc[first];
    return acc;
}

int main() {
    // input
    int n; scanf("%d", &n);
    vector<int> a(n); repeat (i,n) scanf("%d", &a[i]);
    // compute
    map<int,int> acch = count_kadomatsu(a, -1, 1e9+7); // a1 < a2, a2 > a3
    map<int,int> accl = count_kadomatsu(a, 1e9+7, -1); // a1 > a2, a2 < a3
    // output
    int q; scanf("%d", &q);
    while (q --) {
        int l, h; scanf("%d%d", &l, &h);
        int hr = (-- acch.upper_bound(h  ))->second;
        int hl = (-- acch.upper_bound(l-1))->second;
        int lr = (   accl.lower_bound(h+1))->second;
        int ll = (   accl.lower_bound(l  ))->second;
        printf("%d\n", hr - hl + ll - lr);
    }
    return 0;
}