# include <bits/stdc++.h>
using namespace std;
typedef long long ll;
int n,a[500010],sum[500010],stk[500010];
template<typename T>
void upd(T &a,const T &b){a=max(a,b);}
struct Frac
{
	int a,b;// a^2/b
	Frac(int _a=0,int _b=0):a(_a),b(_b){}
	bool operator<(const Frac &x)const{return (ll)a*a*x.b<(ll)x.a*x.a*b;}
}maxn[500010],ans[300010];
struct Query
{
	int l,r,id;
	bool operator<(const Query &x)const{return l>x.l;}
}que[300010];
bool cmpl(Query a,Query b){return a.l>b.l;}
bool cmpr(Query a,Query b){return a.r<b.r;}
void update(int x,const Frac &y){for(int i=x;i<=n;i+=i&(-i)) upd(maxn[i],y);}
Frac query(int x)
{
	Frac ans(0,1);
	for(int i=x;i;i-=i&(-i)) upd(ans,maxn[i]);
	return ans;
}
int main()
{
	int q,tp=0;
	cin>>n;
	for(int i=1;i<=n;i++) scanf("%d",&a[i]),sum[i]=sum[i-1]+a[i];
	cin>>q;
	for(int i=1;i<=q;i++) scanf("%d%d",&que[i].l,&que[i].r),que[i].id=i;
	fill(ans+1,ans+q+1,Frac(0,1));
	sort(que+1,que+q+1,cmpr);
	fill(maxn+1,maxn+n+1,Frac(0,1));
	for(int i=0,j=1;i<=n;i++)
	{
		while(tp && sum[stk[tp]]>=sum[i]) tp--;
		for(int j=1;j<=tp;j++) update(n-stk[j],Frac(sum[i]-sum[stk[j]],i-stk[j]));
		stk[++tp]=i;
		for(;j<=q && que[j].r==i;j++) upd(ans[que[j].id],query(n-que[j].l+1));
	}
	tp=0;
	sort(que+1,que+q+1,cmpl);
	fill(maxn+1,maxn+n+1,Frac(0,1));
	for(int i=n,j=1;i>=0;i--)
	{
		while(tp && sum[stk[tp]]>=sum[i]) tp--;
		for(int j=1;j<=tp;j++) update(stk[j],Frac(sum[stk[j]]-sum[i],stk[j]-i));
		stk[++tp]=i;
		for(;j<=q && que[j].l==i+1;j++) upd(ans[que[j].id],query(que[j].r));
	}
	for(int i=1;i<=q;i++)
	{
		ll a=(ll)ans[i].a*ans[i].a,b=ans[i].b,g=__gcd(a,b);
		printf("%lld %lld\n",a/g,b/g);
	}
	return 0;
}