水果姐今天心情不错，来到了水果街。

水果街有n家水果店，呈直线结构，编号为1~n，每家店能买水果也能卖水果，并且同一家店卖与买的价格一样。

学过oi的水果姐迅速发现了一个赚钱的方法：在某家水果店买一个水果，再到另外一家店卖出去，赚差价。

就在水果姐窃喜的时候，cgh突然出现，他为了为难水果姐，给出m个问题，每个问题要求水果姐从第x家店出发到第y家店，途中只能选一家店买一个水果，然后选一家店（可以是同一家店，但不能往回走）卖出去，求每个问题中最多可以赚多少钱。

第一行n，表示有n家店

下来n个正整数，表示每家店一个苹果的价格。

下来一个整数m，表示下来有m个询问。

下来有m行，每行两个整数x和y，表示从第x家店出发到第y家店。

有m行。

每行对应一个询问，一个整数，表示面对cgh的每次询问，水果姐最多可以赚到多少钱。

10
2 8 15 1 10 5 19 19 3 5 
4
6 6
2 8
2 2
6 3

0
18
0
14

0<=苹果的价格<=10^8

0<n,m<=200000

/*
考虑线段树，每个答案可能在区间内取得，也可以在区间之间取得，第一种情况直接在修改的时候记录一下，第二个可以用dfs序搞一下
*/
#include<iostream>
#include<cstdio>
#include<string>
#include<cstring>
#include<algorithm>
#include<cmath>
#include<vector>
#define ll long long
#define fo(i,l,r) for(int i = l;i <= r;i++)
#define fd(i,l,r) for(int i = r;i >= l;i--)
#define lson l,m,rt<<1
#define rson m+1,r,rt<<1|1
using namespace std;
const int N = 200000;
ll read(){
    ll x=0,f=1;
    char ch=getchar();
    while(!(ch>=‘0‘&&ch<=‘9‘)){if(ch==‘-‘)f=-1;ch=getchar();};
    while(ch>=‘0‘&&ch<=‘9‘){x=x*10+(ch-‘0‘);ch=getchar();};
    return x*f;
}
int n,m,u,v;
bool f;
ll minv[N<<4],maxv[N<<4],d1[N<<4],d2[N<<4],reca[N<<4],recb[N<<4],val[N],cnt;
ll ans;
void maintain(int rt){
    minv[rt] = min(minv[rt<<1],minv[rt<<1|1]);
    maxv[rt] = max(maxv[rt<<1],maxv[rt<<1|1]);
    d1[rt] = max(d1[rt<<1],d1[rt<<1|1]);
    d1[rt] = max(d1[rt],maxv[rt<<1|1] - minv[rt<<1]);
    d2[rt] = max(d2[rt<<1],d2[rt<<1|1]);
    d2[rt] = max(d2[rt],maxv[rt<<1] - minv[rt<<1|1]);
}
void build(int l,int r,int rt){
    if(l == r){
        minv[rt] = maxv[rt] = val[l];
        d1[rt] = d2[rt] = 0;
    }else{
        int m = (l + r) >> 1;
        build(lson);
        build(rson);
        maintain(rt);
    } 
}
void query(int l,int r,int rt){
    if(u <= l && v >= r){
        if(!f)ans = max(ans,d1[rt]);
        else ans = max(ans,d2[rt]);
        reca[++cnt] = minv[rt];
        recb[cnt] = maxv[rt];
    }else{
        int m = (l + r) >> 1;
        if(u <= m) query(lson);
        if(v > m) query(rson);
    }
}
void solve(){
    cnt = ans = 0;
    f = false;
    if(u > v){
        swap(u,v);
        f = true;
    }
    query(1,n,1);
    ll tmp = 987654321012345LL;
    if(!f){
        fo(i,2,cnt){
            tmp = min(tmp,reca[i-1]);
            ans = max(ans,recb[i]-tmp);
        }
    }else{
        fd(i,1,cnt-1){
            tmp = min(tmp,reca[i+1]);
            ans = max(ans,recb[i]-tmp);
        }
    }
    printf("%lld\n",ans);
}
int main(){
    n = read();
    fo(i,1,n) val[i] = read();
    build(1,n,1);
    m = read();
    fo(i,1,m){
        u = read();v=read();solve();
    }
    return 0;
}