use std::cmp;

fn main() {
    let s = std::io::stdin();
    let mut sc = Scanner { stdin: s.lock() };
    let n: usize = sc.read();
    let x: Vec<u64> = sc.vec(n);

    let mut y = vec![vec![0; n]; 30];
    for i in 0..(n - 1) {
        y[0][i] = x[i + 1] - x[i];
    }
    for t in 0..(y.len() - 1) {
        for i in 0..n {
            let next_pos = i + (1 << t);
            if next_pos >= n {
                break;
            }
            if y[t][i] == 0 || y[t][next_pos] == 0 {
                continue;
            }
            y[t + 1][i] = y[t][i] + y[t][next_pos];
        }
    }

    let l: u64 = sc.read();
    let mut go = vec![vec![0; n]; 5];
    for i in 0..n {
        let mut cur = i;
        let mut t = y.len() - 1;
        let mut l = l;
        loop {
            if y[t][cur] == 0 || y[t][cur] > l {
                if t > 0 {
                    t -= 1;
                } else {
                    break;
                }
            } else {
                l -= y[t][cur];
                cur += 1 << t;
            }
        }
        go[0][i] = cur;
    }

    for t in 1..go.len() {
        for i in 0..n {
            go[t][i] = go[t - 1][go[t - 1][i]];
        }
    }

    let q: usize = sc.read();
    for _ in 0..q {
        let a: usize = sc.read::<usize>() - 1;
        let b: usize = sc.read::<usize>() - 1;

        let (mut a, b) = (cmp::min(a, b), cmp::max(a, b));
        let mut ans = 0;
        for i in (0..go.len()).rev() {
            while go[i][a] <= b {
                ans += 1 << i;
                a = go[i][a];
            }
            if i == 0 && a < b {
                assert!(go[i][a] >= b);
                ans += 1;
            }
        }
        println!("{}", ans);
    }
}

pub struct Scanner<R> {
    stdin: R,
}

impl<R: std::io::Read> Scanner<R> {
    pub fn read<T: std::str::FromStr>(&mut self) -> T {
        use std::io::Read;
        let buf = self
            .stdin
            .by_ref()
            .bytes()
            .map(|b| b.unwrap())
            .skip_while(|&b| b == b' ' || b == b'\n')
            .take_while(|&b| b != b' ' && b != b'\n')
            .collect::<Vec<_>>();
        unsafe { std::str::from_utf8_unchecked(&buf) }
            .parse()
            .ok()
            .expect("Parse error.")
    }
    pub fn vec<T: std::str::FromStr>(&mut self, n: usize) -> Vec<T> {
        (0..n).map(|_| self.read()).collect()
    }
    pub fn chars(&mut self) -> Vec<char> {
        self.read::<String>().chars().collect()
    }
}
