import bisect
import sys
import math
import itertools
sys.setrecursionlimit(10000)

INF = float('inf')

# input macro
def i():
    return int(raw_input())
def ii():
    return map(int,raw_input().split(" "))
def s():
    return raw_input()
def ss():
    return raw_input().split(" ")
def slist():
    return list(raw_input())
#

def join(s):
    return ''.join(s)

#iterate macro
def piter(n,m):
    return itertools.permutations(n,m)
def citer(n,m):
    return itertools.combinations(n,m)

#modulo macro
def modc(a,b,m):
    c = 1
    for i in xrange(b):
        c = c * (a - i) % m
        c = c * modinv(i + 1,m) % m
    return c
 
def gcd(a, b):
    (x, lastx) = (0, 1)
    (y, lasty) = (1, 0)
    while b != 0:
        q = a // b
        (a, b) = (b, a % b)
        (x, lastx) = (lastx - q * x, x)
        (y, lasty) = (lasty - q * y, y)
    return (lastx, lasty, a)
 
def modinv(a, m):
    (inv, q, gcd_val) = gcd(a, m)
    return inv % m

#bisect macro
def index(a, x):
    #Locate the leftmost value exactly equal to x
    i = bisect_left(a, x)
    if i != len(a) and a[i] == x:
        return i
    return -1

#memoize macro
def memoize(f):
    cache = {}
    def helper(*args):
        if args not in cache:
            cache[(args)] = f(*args)
        return cache[args]
    return helper

@memoize
def nck(a,b,m):
    b = min([a-b,b])
    if (b>a or b<0 or a<0):
        return 0
    elif a == 0:
        return 1
    return (nck(a-1,b-1,m)+nck(a-1,b,m)) % m

nh=zip([1,0,-1,0],[0,1,0,-1])

###########

n=i()
x=ii()
l=i()
q=i()
a,b=[0]*q,[0]*q
for j in range(q):
    a[j],b[j]=ii()

left=[0]*n
right=[0]*n

for (j,hotel) in enumerate(x):
    right[j]=bisect.bisect_right(x,hotel+l)-1
    left[j]=bisect.bisect_left(x,hotel-l)

for j in range(q):
    if a[j]<b[j]:
        cur=a[j]-1
        cnt=0
        while cur<b[j]-1:
            if x[cur]+l>=x[b[j]-1]:
                cnt+=1
                cur=b[j]-1
            else:
                cnt+=1
                cur=right[cur]
        print cnt
    else:
        cur=a[j]-1
        cnt=0
        while cur>b[j]-1:
            if x[cur]-l<=x[b[j]-1]:
                cnt+=1
                cur=b[j]-1
            else:
                cnt+=1
                cur=left[cur]
        print cnt
            
            
    
