#include <iostream>
#include <vector>
#include <cstdio>
#include <sstream>
#include <map>
#include <string>
#include <algorithm>
#include <queue>
#include <cmath>
#include <functional>
#include <set>
#include <ctime>
#include <random>
#include <chrono>
#include <cassert>
using namespace std;

namespace {
  using Integer = long long; //__int128;
  template<class T> istream& operator >> (istream& is, vector<T>& vec){for(T& val: vec) is >> val; return is;}
  template<class T> istream& operator ,  (istream& is, T& val){ return is >> val;}
  template<class T> ostream& operator << (ostream& os, const vector<T>& vec){for(int i=0; i<vec.size(); i++) os << vec[i] << (i==vec.size()-1?"":" "); return os;}
  template<class T> ostream& operator ,  (ostream& os, const T& val){ return os << " " << val;}

  template<class H> void print(const H& head){ cout << head; }
  template<class H, class ... T> void print(const H& head, const T& ... tail){ cout << head << " "; print(tail...); }
  template<class ... T> void println(const T& ... values){ print(values...); cout << endl; }

  template<class H> void eprint(const H& head){ cerr << head; }
  template<class H, class ... T> void eprint(const H& head, const T& ... tail){ cerr << head << " "; eprint(tail...); }
  template<class ... T> void eprintln(const T& ... values){ eprint(values...); cerr << endl; }

  class range{
    long long start_, end_, step_;
   public:
    struct range_iterator{
      long long val, step_;
      range_iterator(long long v, long long step) : val(v), step_(step) {}
      long long operator * (){return val;}
      void operator ++ (){val += step_;}
      bool operator != (range_iterator& x){return step_ > 0 ? val < x.val : val > x.val;}
    };
    range(long long len) : start_(0), end_(len), step_(1) {}
    range(long long start, long long end) : start_(start), end_(end), step_(1) {}
    range(long long start, long long end, long long step) : start_(start), end_(end), step_(step) {}
    range_iterator begin(){ return range_iterator(start_, step_); }
    range_iterator   end(){ return range_iterator(  end_, step_); }
  };

  string operator "" _s (const char* str, size_t size){ return move(string(str)); }
  constexpr Integer my_pow(Integer x, Integer k, Integer z=1){return k==0 ? z : k==1 ? z*x : (k&1) ? my_pow(x*x,k>>1,z*x) : my_pow(x*x,k>>1,z);}
  constexpr Integer my_pow_mod(Integer x, Integer k, Integer M, Integer z=1){return k==0 ? z%M : k==1 ? z*x%M : (k&1) ? my_pow_mod(x*x%M,k>>1,M,z*x%M) : my_pow_mod(x*x%M,k>>1,M,z);}
  constexpr unsigned long long operator "" _ten (unsigned long long value){ return my_pow(10,value); }

  inline int k_bit(Integer x, int k){return (x>>k)&1;} //0-indexed

  mt19937 mt(chrono::duration_cast<chrono::nanoseconds>(chrono::steady_clock::now().time_since_epoch()).count());

  template<class T> string join(const vector<T>& v, const string& sep){
    stringstream ss; for(int i=0; i<v.size(); i++){ if(i>0) ss << sep; ss << v[i]; } return ss.str();
  }

  string operator * (string s, int k){ string ret; while(k){ if(k&1) ret += s; s += s; k >>= 1; } return ret; }

}

constexpr long long mod = 9_ten + 7;

int main(){
  int n;
  cin >> n;
  
  vector<long long> x(n);
  cin >> x;

  long long l;
  cin >> l;

  int q;
  cin >> q;
  vector<pair<int,int>> y(q);
  for(auto i : range(q) ){
    int a,b;
    scanf("%d%d", &a, &b);
    a--; b--;
    if(a>b) swap(a,b);
    y[i] = {a,b};
  }

  int lg = 1;
  while((1<<lg) < n) lg++;

  vector<vector<int>> dp(n, vector<int>(lg+1, 0));
  for(auto i : range(n) ){
    int nx = upper_bound(x.begin() + i, x.end(), x[i] + l) - x.begin() - 1;

    dp[i][0] = min(n-1, nx);
  }
  for(auto d : range(1, lg+1) ){
    for(auto i : range(n) ){
      dp[i][d] = dp[ dp[i][d-1] ][ d-1 ];
    }
  }

  for(auto i : range(q) ){
    long long lb = 0;
    long long ub = y[i].second - y[i].first;

    auto check = [&](long long t){
      int pos = y[i].first;
      for(int k = 0; t; k++){
        if((t>>k)&1) pos = dp[ pos ][ k ];
        t &= ~(1<<k);
      }
      return pos >= y[i].second;
    };

    while(ub-lb>1){
      long long mid = (lb+ub)/2;
      bool ok = check(mid);
      (ok? ub : lb) = mid;
    }

    println(ub);
  }

  return 0;
}


Measured memory_bytes: 12544