#include<iostream>
#include<algorithm>
#include<vector>
using namespace std;
#define all(fl) fl.begin(),fl.end()
#define pb push_back
#define fi first
#define se second
#define for1(i,j,k) for(int i=j;i<=k;i++)
#define for2(i,j,k) for(int i=j;i>=k;i--)
#define for3(i,j,k,l) for(int i=j;i<=k;i+=l)
#define lb lower_bound
#define ub upper_bound
#define sz(a) (int)a.size()
#define pii pair<int,int>
#define pli pair<long ,int>
#define gcd __gcd
#define lcm(x,y) x*y/__gcd(x,y)
#define pil pair<int,long long>
const int maxn=4e5+10;
int nxt[maxn],bit[maxn],in[maxn],out[maxn];
int n,tme=0;
void dfs(int u)
{
in[u]=++tme;
if (u==0)
{
for2(v,n+1,n)
{
int l=1,r=min(v,n),as=-1;
while (l<=r)
{
int mid=(l+r)/2;
if (nxt[mid]==v)
{
as=mid;
l=mid+1;
}
else if (nxt[mid]>v)
{
r=mid-1;
}
else l=mid+1;
}
if (as!=-1)dfs(as);
}
}
else
{
int v=u;
while (v)
{
if (nxt[v]!=nxt[u])break;
int l=1,r=v,as=-1;
while (l<=r)
{
int mid=(l+r)/2;
if (nxt[mid]+1==v)
{
as=mid;
l=mid+1;
}
else if (nxt[mid]+1>v)
{
r=mid-1;
}
else l=mid+1;
}
if (as!=-1)dfs(as);
v--;
}
}
out[u]=tme;
}
void add(int pos,int val)
{
for(; pos<=n; pos+=(pos-(pos&(pos-1))))bit[pos]+=val;
}
void add(int l,int r,int val)
{
add(l,val);
add(r+1,-val);
}
int get(int pos)
{
int sum=0;
for(; pos>=1; pos-=(pos-(pos&(pos-1))))sum+=bit[pos];
return sum;
}
int lep[maxn],rai[maxn],id[maxn];
signed main()
{
ios_base::sync_with_stdio(0);
cin.tie(0);
//freopen("temp.INP","r",stdin);
//freopen("temp.OUT","w",stdout);
cin>>n;
vector<pli>a(n+1);
for1(i,1,n)
{
cin>>a[i].fi;
a[i].fi+=a[i-1].fi;
a[i].se=i;
}
a[0].fi=a[0].se=0;
sort(all(a));
for1(i,0,n)
{
nxt[a[i].se+1]=n+1;
if (i<n&&a[i].fi==a[i+1].fi)
{
nxt[a[i].se+1]=a[i+1].se;
}
}
vector<pli>().swap(a);
for2(i,n-1,1)nxt[i]=min(nxt[i],nxt[i+1]);
auto f=[&](int u)
{
int l=u,r=n,ans=u;
while (l<=r)
{
int mid=(l+r)/2;
if (nxt[mid]==nxt[u])
{
l=mid+1;
ans=mid;
}
else r=mid-1;
}
return ans;
};
dfs(0);
int q;
cin>>q;
for1(i,1,q)cin>>lep[i]>>rai[i],id[i]=i,lep[i]=f(lep[i]);
sort(id+1,id+1+q,[](int i,int j)
{
return rai[i]<rai[j];
});
int p=1,qr=1;
for1(i,1,n)
{
while (nxt[p]<i&&p<i)
{
p++;
}
if (nxt[p]==i)
{
for1(j,p,i)
{
if (nxt[j]>i)break;
p=j;
if (j<i&&nxt[j]==nxt[j+1])continue;
add(in[j],out[j],1);
}
}
while (qr<=q)
{
if (rai[id[qr]]!=i)break;
lep[id[qr]]=get(in[lep[id[qr]]]);
qr++;
}
}
for1(i,1,q)cout<<lep[i]<<'\n';
}
