#include<bits/stdc++.h>
using namespace std;
#define fi first
#define se second
#define ll long long
#define pll pair<ll,ll>
#define lg(x) __lg(x)
#define all(s) sort(s.begin(),s.end())
#define name "test"
#define Mask(i) (1LL<<i)
#define testbit(mask, i) ((mask >> i) & 1LL)
#define onBit(mask, i) (mask | (1LL << i))
#define offBit(mask, i) (mask & ~(1LL << i))
#define flipBit(mask, i) (mask ^ (1LL << i))
#define showbit(mask, x) bitset<x>(mask)
const ll mod = 1e9 + 7;
const ll inf = 1e18;
const ll lim = 1e7 + 5;
const ll N = 3e5 + 5;
int n;
int a[N];
stack<int> q;
int le[N];
int ri[N];
ll pre[N];
int main()
{
ios_base::sync_with_stdio(0);
cout.tie(0);cin.tie(0);
if(fopen(name".inp","r")){
freopen(name".inp","r",stdin);
freopen(name".out","w",stdout);
}
cin >> n;
for(int i = 1; i <= n; i++){
cin >> a[i];
pre[i] = pre[i - 1] + a[i];
}
for(int i = 1; i <= n; i++){
while(!q.empty() && a[q.top()] <= a[i]) q.pop();
le[i] = (q.empty() == true) ? 1 : q.top() + 1;
q.emplace(i);
}
while(!q.empty()) q.pop();
for(int i = n; i >= 1; i--){
while(!q.empty() && a[q.top()] < a[i]) q.pop();
ri[i] = (q.empty() == true) ? n : q.top() - 1;
q.emplace(i);
}
ll res = 0;
for(int i = 1; i <= n; i++){
int l = le[i], r = ri[i];
if(i - l + 1 < r - i){
for(int j = l; j <= i; j++){
ll lim = 2 * a[i] + pre[j - 1];
int left = i, right = r, kq = -1;
while(left <= right){
int mid = (left + right) >> 1;
if(lim > pre[mid]){
left = mid + 1;
kq = mid;
}
else right = mid - 1;
}
if(kq == -1) continue;
res += (kq - i + 1);
}
}
else{
for(int j = r; j >= i; j--){
ll lim = pre[j] - 2 * a[i];
int left = l - 1, right = i - 1, kq = -1;
// if(j == 8 && i == 5) cout << lim << " " << pre[j] << '\n';
while(left <= right){
int mid = (left + right) >> 1;
if(pre[mid] > lim){
right = mid - 1;
kq = mid;
}
else left = mid + 1;
}
if(kq == -1) continue;
// cout << i << " " << j << " " << kq << '\n';
res += (i - kq);
}
}
}
cout << res;
}
/*
2 * max(al, ..., ar) > pre[r] - pre[l]
pre[l] > pre[r] - 2 * max(al, ..., ar)
*/
I2luY2x1ZGU8Yml0cy9zdGRjKysuaD4KdXNpbmcgbmFtZXNwYWNlIHN0ZDsKI2RlZmluZSBmaSBmaXJzdAojZGVmaW5lIHNlIHNlY29uZAojZGVmaW5lIGxsIGxvbmcgbG9uZwojZGVmaW5lIHBsbCBwYWlyPGxsLGxsPgojZGVmaW5lIGxnKHgpIF9fbGcoeCkKI2RlZmluZSBhbGwocykgc29ydChzLmJlZ2luKCkscy5lbmQoKSkKI2RlZmluZSBuYW1lICJ0ZXN0IgojZGVmaW5lIE1hc2soaSkgKDFMTDw8aSkKI2RlZmluZSB0ZXN0Yml0KG1hc2ssIGkpICgobWFzayA+PiBpKSAmIDFMTCkKI2RlZmluZSBvbkJpdChtYXNrLCBpKSAobWFzayB8ICgxTEwgPDwgaSkpCiNkZWZpbmUgb2ZmQml0KG1hc2ssIGkpIChtYXNrICYgfigxTEwgPDwgaSkpCiNkZWZpbmUgZmxpcEJpdChtYXNrLCBpKSAobWFzayBeICgxTEwgPDwgaSkpCiNkZWZpbmUgc2hvd2JpdChtYXNrLCB4KSBiaXRzZXQ8eD4obWFzaykKY29uc3QgbGwgbW9kID0gMWU5ICsgNzsKY29uc3QgbGwgaW5mID0gMWUxODsKY29uc3QgbGwgbGltID0gMWU3ICsgNTsKY29uc3QgbGwgTiA9IDNlNSArIDU7CmludCBuOwppbnQgYVtOXTsKc3RhY2s8aW50PiBxOwppbnQgbGVbTl07CmludCByaVtOXTsKbGwgcHJlW05dOwppbnQgbWFpbigpCnsKICAgIGlvc19iYXNlOjpzeW5jX3dpdGhfc3RkaW8oMCk7CiAgICBjb3V0LnRpZSgwKTtjaW4udGllKDApOwogICAgaWYoZm9wZW4obmFtZSIuaW5wIiwiciIpKXsKICAgICAgICBmcmVvcGVuKG5hbWUiLmlucCIsInIiLHN0ZGluKTsKICAgICAgICBmcmVvcGVuKG5hbWUiLm91dCIsInciLHN0ZG91dCk7CiAgICB9CiAgICBjaW4gPj4gbjsKICAgIGZvcihpbnQgaSA9IDE7IGkgPD0gbjsgaSsrKXsKICAgICAgICBjaW4gPj4gYVtpXTsKICAgICAgICBwcmVbaV0gPSBwcmVbaSAtIDFdICsgYVtpXTsKICAgIH0KICAgIGZvcihpbnQgaSA9IDE7IGkgPD0gbjsgaSsrKXsKICAgICAgICB3aGlsZSghcS5lbXB0eSgpICYmIGFbcS50b3AoKV0gPD0gYVtpXSkgcS5wb3AoKTsKICAgICAgICBsZVtpXSA9IChxLmVtcHR5KCkgPT0gdHJ1ZSkgPyAxIDogcS50b3AoKSArIDE7CiAgICAgICAgcS5lbXBsYWNlKGkpOwogICAgfQogICAgd2hpbGUoIXEuZW1wdHkoKSkgcS5wb3AoKTsKICAgIGZvcihpbnQgaSA9IG47IGkgPj0gMTsgaS0tKXsKICAgICAgICB3aGlsZSghcS5lbXB0eSgpICYmIGFbcS50b3AoKV0gPCBhW2ldKSBxLnBvcCgpOwogICAgICAgIHJpW2ldID0gKHEuZW1wdHkoKSA9PSB0cnVlKSA/IG4gOiBxLnRvcCgpIC0gMTsKICAgICAgICBxLmVtcGxhY2UoaSk7CiAgICB9CiAgICBsbCByZXMgPSAwOwogICAgZm9yKGludCBpID0gMTsgaSA8PSBuOyBpKyspewogICAgICAgIGludCBsID0gbGVbaV0sIHIgPSByaVtpXTsKICAgICAgICBpZihpIC0gbCArIDEgPCByIC0gaSl7CiAgICAgICAgICAgIGZvcihpbnQgaiA9IGw7IGogPD0gaTsgaisrKXsKICAgICAgICAgICAgICAgIGxsIGxpbSA9IDIgKiBhW2ldICsgcHJlW2ogLSAxXTsKICAgICAgICAgICAgICAgIGludCBsZWZ0ID0gaSwgcmlnaHQgPSByLCBrcSA9IC0xOwogICAgICAgICAgICAgICAgd2hpbGUobGVmdCA8PSByaWdodCl7CiAgICAgICAgICAgICAgICAgICAgaW50IG1pZCA9IChsZWZ0ICsgcmlnaHQpID4+IDE7CiAgICAgICAgICAgICAgICAgICAgaWYobGltID4gcHJlW21pZF0pewogICAgICAgICAgICAgICAgICAgICAgICBsZWZ0ID0gbWlkICsgMTsKICAgICAgICAgICAgICAgICAgICAgICAga3EgPSBtaWQ7CiAgICAgICAgICAgICAgICAgICAgfQogICAgICAgICAgICAgICAgICAgIGVsc2UgcmlnaHQgPSBtaWQgLSAxOwogICAgICAgICAgICAgICAgfQogICAgICAgICAgICAgICAgaWYoa3EgPT0gLTEpIGNvbnRpbnVlOwogICAgICAgICAgICAgICAgcmVzICs9IChrcSAtIGkgKyAxKTsKICAgICAgICAgICAgfQogICAgICAgIH0KICAgICAgICBlbHNlewogICAgICAgICAgICBmb3IoaW50IGogPSByOyBqID49IGk7IGotLSl7CiAgICAgICAgICAgICAgICBsbCBsaW0gPSBwcmVbal0gLSAyICogYVtpXTsKICAgICAgICAgICAgICAgIGludCBsZWZ0ID0gbCAtIDEsIHJpZ2h0ID0gaSAtIDEsIGtxID0gLTE7Ci8vICAgICAgICAgICAgICAgIGlmKGogPT0gOCAmJiBpID09IDUpIGNvdXQgPDwgbGltIDw8ICIgIiA8PCBwcmVbal0gPDwgJ1xuJzsKICAgICAgICAgICAgICAgIHdoaWxlKGxlZnQgPD0gcmlnaHQpewogICAgICAgICAgICAgICAgICAgIGludCBtaWQgPSAobGVmdCArIHJpZ2h0KSA+PiAxOwogICAgICAgICAgICAgICAgICAgIGlmKHByZVttaWRdID4gbGltKXsKICAgICAgICAgICAgICAgICAgICAgICAgcmlnaHQgPSBtaWQgLSAxOwogICAgICAgICAgICAgICAgICAgICAgICBrcSA9IG1pZDsKICAgICAgICAgICAgICAgICAgICB9CiAgICAgICAgICAgICAgICAgICAgZWxzZSBsZWZ0ID0gbWlkICsgMTsKICAgICAgICAgICAgICAgIH0KICAgICAgICAgICAgICAgIGlmKGtxID09IC0xKSBjb250aW51ZTsKLy8gICAgICAgICAgICAgICAgY291dCA8PCBpIDw8ICIgIiA8PCBqIDw8ICIgIiA8PCBrcSA8PCAnXG4nOwogICAgICAgICAgICAgICAgcmVzICs9IChpIC0ga3EpOwogICAgICAgICAgICB9CiAgICAgICAgfQogICAgfQogICAgY291dCA8PCByZXM7Cn0KLyoKMiAqIG1heChhbCwgLi4uLCBhcikgPiBwcmVbcl0gLSBwcmVbbF0KcHJlW2xdID4gcHJlW3JdIC0gMiAqIG1heChhbCwgLi4uLCBhcikKCiovCg==