#include<iostream>
#include<cstdio>
#include<vector>
#define N 1000000
#define inf 1e9
using namespace std;
int read()
{
    char c=0;
    int sum=0,f=1;
    while (c!='-'&&(c<'0'||c>'9')) c=getchar();
    if (c=='-') c=getchar(),f=-1;
    while ('0'<=c&&c<='9') sum=sum*10+c-'0',c=getchar();
    return sum*f;
}
long long gcd(long long a,long long b)
{
    if (!b) return a;
    return gcd(b,a%b);
}
struct reads
{
    int l,r,num;
};
struct rds
{
    long long a;
    int b;
    bool operator < (const rds &t)const
    {
	return a*t.b<b*t.a;
    }
};
rds ans[N+1],A[N+1],B[N+1];
int n,m,a[N+1],s[N+1],dque[N+1],top,dque2[N+1],top2,tong[N+1],length,tong2[N+1],length2,tong3[N+1],length3,tong4[N+1],length4,ps[N+1],ps2[N+1],ps3[N+1],ps4[N+1];
void solve(int l,int r,vector<reads>p)
{
    if (l==r||p.empty()) return;
    int mid=(l+r)>>1,minn=inf,maxn=-inf,sl=inf,sr=0;
    vector<reads>tA;
    vector<reads>tB;
    for (int i=0;i<p.size();++i)
	if (p[i].l<=mid&&mid+1<=p[i].r)
	    sl=min(sl,p[i].l),sr=max(sr,p[i].r);
    length=length2=length=length4=top=top2=0,A[mid+1]=(rds){-1,0},B[mid]=(rds){-1,0};
    for (int i=mid;i>=sl;--i)
    {
	A[i]=A[i+1];
	while (top&&s[dque[top]]<=s[i]) top--;
	while (top2&&s[dque2[top2]]>=s[i]) top2--;
	for (int j=1;j<=top;++j) A[i]=max(A[i],(rds){1ll*(s[i]-s[dque[j]])*(s[i]-s[dque[j]]),dque[j]-i});
	for (int j=1;j<=top2;++j) A[i]=max(A[i],(rds){1ll*(s[i]-s[dque2[j]])*(s[i]-s[dque2[j]]),dque2[j]-i});
	dque[++top]=i,dque2[++top2]=i;
    }
    top=top2=0;
    for (int i=mid+1;i<=sr;++i)
    {
	B[i]=B[i-1];
	while (top&&s[dque[top]]<=s[i]) top--;
	while (top2&&s[dque2[top2]]>=s[i]) top2--;
	for (int j=1;j<=top;++j) B[i]=max(B[i],(rds){1ll*(s[i]-s[dque[j]])*(s[i]-s[dque[j]]),i-dque[j]});
	for (int j=1;j<=top2;++j) B[i]=max(B[i],(rds){1ll*(s[i]-s[dque2[j]])*(s[i]-s[dque2[j]]),i-dque2[j]});
	dque[++top]=i,dque2[++top2]=i;
    }
    for (int i=mid;i>=sl;--i)
    {
	if (s[i]<minn) minn=s[i],tong[++length]=i;
	if (s[i]>maxn) maxn=s[i],tong2[++length2]=i;
	ps[i]=length,ps2[i]=length2;
    }
    minn=inf,maxn=-inf;
    for (int i=mid+1;i<=sr;++i)
    {
	if (s[i]<minn) minn=s[i],tong3[++length3]=i;
	if (s[i]>maxn) maxn=s[i],tong4[++length4]=i;
	ps3[i]=length3,ps4[i]=length4;
    }
    for (int i=0;i<p.size();++i)
    {
	if (p[i].r<=mid) tA.push_back(p[i]);
	else if (p[i].l>=mid+1) tB.push_back(p[i]);
	else
	{
	    ans[p[i].num]=max(A[p[i].l],B[p[i].r]);
	    for (int j=1;j<=ps[p[i].l];++j)
		for (int k=1;k<=ps4[p[i].r];++k)
		    ans[p[i].num]=max(ans[p[i].num],(rds){1ll*(s[tong4[k]]-s[tong[j]])*(s[tong4[k]]-s[tong[j]]),tong4[k]-tong[j]});
	    for (int j=1;j<=ps2[p[i].l];++j)
		for (int k=1;k<=ps3[p[i].r];++k)
		    ans[p[i].num]=max(ans[p[i].num],(rds){1ll*(s[tong3[k]]-s[tong2[j]])*(s[tong3[k]]-s[tong2[j]]),tong3[k]-tong2[j]});
	}
    }
    solve(l,mid,tA),solve(mid+1,r,tB);
    return;
}
int main()
{
    int l,r;
    vector<reads>p;
    n=read();
    for (int i=1;i<=n;++i) a[i]=read(),s[i]=s[i-1]+a[i];
    m=read();
    for (int i=1;i<=m;++i) l=read(),r=read(),p.push_back((reads){l-1,r,i});
    solve(0,n,p);
    for (int i=1;i<=m;++i) printf("%lld %lld\n",ans[i].a/gcd(ans[i].a,ans[i].b),ans[i].b/gcd(ans[i].a,ans[i].b));
    return 0;
}