#include <iostream>
using namespace std;
#define int long long
const int Maxn=100005;
const int inf=0x3f3f3f3f3f3f3f3f;
int n,a[Maxn],L,q;
int nxt[Maxn],nxt2[Maxn][20];
void init()
{
	for (int l=1,r=1;l<=n && r<=n && a[r]-a[l]<=L;++l)
	{
		while (r<=n && a[r]-a[l]<=L) r++;
		r--;
		nxt[l]=r;
	}
	nxt[n]=inf;
	for (int i=1;i<=n;++i) nxt2[i][0]=nxt[i];
	for (int i=1;i<=19;++i)
	{
		for (int j=1;j<=n;++j)
		{
			if (nxt2[j][i-1]==inf) nxt2[j][i]=inf;
			else nxt2[j][i]=nxt2[nxt2[j][i-1]][i-1];
		}
	}
}
signed main()
{
	cin>>n;
	for (int i=1;i<=n;++i) cin>>a[i];
	cin>>L>>q;
	init();
	while (q--)
	{
		int l,r,ans=0;
		cin>>l>>r;
		if (l>r) swap(l,r);
		for (int i=19;i>=0;i--)
		{
			if (nxt2[l][i]<=r)
			{
				ans+=1LL<<i;
				l=nxt2[l][i];
			}
		}
		if (l!=r) ans++;
		cout<<ans<<endl;
	}
	return 0;
}