#include <bits/stdc++.h>
using namespace std;
using ll = long long;
unsigned euclidean_gcd(unsigned a, unsigned b) {
  if (a < b) return euclidean_gcd(b, a);
  unsigned r;
  while ((r = a % b)) {
    a = b;
    b = r;
  }
  return b;
}
ll ll_gcd(ll a, ll b) {
  if (a < b) return ll_gcd(b, a);
  ll r;
  while ((r = a % b)) {
    a = b;
    b = r;
  }
  return b;
}
struct UnionFind {
  vector<ll> par;
  vector<ll> siz;
  UnionFind(ll sz_) : par(sz_), siz(sz_, 1LL) {
    for (ll i = 0; i < sz_; ++i) par[i] = i;
  }
  void init(ll sz_) {
    par.resize(sz_);
    siz.assign(sz_, 1LL);
    for (ll i = 0; i < sz_; ++i) par[i] = i;
  }
  ll root(ll x) {
    while (par[x] != x) {
      x = par[x] = par[par[x]];
    }
    return x;
  }
  bool merge(ll x, ll y) {
    x = root(x);
    y = root(y);
    if (x == y) return false;
    if (siz[x] < siz[y]) swap(x, y);
    siz[x] += siz[y];
    par[y] = x;
    return true;
  }
  bool issame(ll x, ll y) { return root(x) == root(y); }
  ll size(ll x) { return siz[root(x)]; }
};
long long modpow(long long a, long long n, long long mod) {
  long long res = 1;
  while (n > 0) {
    if (n & 1) res = res * a % mod;
    a = a * a % mod;
    n >>= 1;
  }
  return res;
}
long long modinv(long long a, long long mod) { return modpow(a, mod - 2, mod); }
vector<int> tpsort(vector<vector<int>>& G) {
  int V = G.size();
  vector<int> sorted_vertices;
  queue<int> que;
  vector<int> indegree(V);
  for (int i = 0; i < V; i++) {
    for (int j = 0; j < G[i].size(); j++) {
      indegree[G[i][j]]++;
    }
  }
  for (int i = 0; i < V; i++) {
    if (indegree[i] == 0) {
      que.push(i);
    }
  }
  while (que.empty() == false) {
    int v = que.front();
    que.pop();
    for (int i = 0; i < G[v].size(); i++) {
      int u = G[v][i];
      indegree[u] -= 1;
      if (indegree[u] == 0) que.push(u);
    }
    sorted_vertices.push_back(v);
  }
  return sorted_vertices;
}
struct Point {
  double x;
  double y;
};
struct LineSegment {
  Point start;
  Point end;
};
double tenkyori(const LineSegment& line, const Point& point) {
  double x0 = point.x, y0 = point.y;
  double x1 = line.start.x, y1 = line.start.y;
  double x2 = line.end.x, y2 = line.end.y;
  double a = x2 - x1;
  double b = y2 - y1;
  double a2 = a * a;
  double b2 = b * b;
  double r2 = a2 + b2;
  double tt = -(a * (x1 - x0) + b * (y1 - y0));
  if (tt < 0)
    return sqrt((x1 - x0) * (x1 - x0) + (y1 - y0) * (y1 - y0));
  else if (tt > r2)
    return sqrt((x2 - x0) * (x2 - x0) + (y2 - y0) * (y2 - y0));
  double f1 = a * (y1 - y0) - b * (x1 - x0);
  return sqrt((f1 * f1) / r2);
}
int main() {
  int n;
  cin >> n;
  vector<int> z(n);
  for (int i = 0; i < n; i++) {
    cin >> z[i];
  }
  int l = 0;
  cin >> l;
  int t = 314;
  vector<int> x(n);
  for (int i = 0; i < n; i++) {
    int u = i;
    for (int j = 0; j < t; j++) {
      int ok = 0;
      int ng = n;
      while (ng - ok > 1) {
        int mid = (ok + ng) / 2;
        if (z[mid] <= z[u] + l)
          ok = mid;
        else
          ng = mid;
      }
      u = ok;
    }
    x[i] = u;
  }
  int q;
  cin >> q;
  for (int i = 0; i < q; i++) {
    int a, b;
    cin >> a >> b;
    a--;
    b--;
    if (b < a) {
      int c = a;
      a = b;
      b = c;
    }
    int ans = 0;
    while (true) {
      if (x[a] >= b)
        break;
      else {
        ans += t;
        a = x[a];
      }
    }
    int u = a;
    for (int j = 1; j < t + 1; j++) {
      int ok = 0;
      int ng = n;
      while (ng - ok > 1) {
        int mid = (ok + ng) / 2;
        if (z[mid] <= z[u] + l)
          ok = mid;
        else
          ng = mid;
      }
      u = ok;
      if (u >= b) {
        ans += j;
        break;
      }
    }
    cout << ans << endl;
  }
}
