/// Author : Nguyễn Thái Sơn - K18 - KHMT - UIT
/// Training ICPC 2024
#include<bits/stdc++.h>
/// #pragma GCC optimize("O3,unroll-loops")
/// #pragma GCC target("avx2,bmi,bmi2,lzcnt,popcnt")
#define fi first
#define se second
#define TASK "max"
#define pb push_back
#define EL cout << endl
#define Ti20_ntson int main()
#define in(x) cout << x << endl
#define all(x) (x).begin(),(x).end()
#define getbit(x, i) (((x) >> (i)) & 1)
#define cntbit(x) __builtin_popcount(x)
#define FOR(i,l,r) for (int i = l; i <= r; i++)
#define FORD(i,l,r) for (int i = l; i >= r; i--)
#define Debug(a,n) for (int i = 1; i <= n; i++) cout << a[i] << " "; cout << endl
using namespace std;
typedef long long ll;
typedef vector<int> vi;
typedef pair<int,int> vii;
typedef unsigned long long ull;
typedef vector<vector<int>> vvi;
int fastMax(int x, int y) { return (((y-x)>>(32-1))&(x^y))^y; }
const int N = 5e5 + 5;
const int oo = INT_MAX;
const int mod = 1e9 + 7;
const int d4x[4] = {-1, 0, 1, 0} , d4y[4] = {0, 1, 0, -1};
const int d8x[8] = {-1, -1, 0, 1, 1, 1, 0, -1}, d8y[8] = {0, 1, 1, 1, 0, -1, -1, -1};
int n, a[N];
long long pre[N], Num = 0;
inline void Read_Input() {
cin >> n;
FOR(i, 1, n) {
cin >> a[i];
pre[i] = pre[i - 1] + a[i];
}
}
inline void Solve() {
FOR(R, 1, n) {
/// dam bao max[1, R] = a[R]
/// dam bao max[2, R] = a[R];
int vt = a[R];
int l = 1, r = R, Ans = -1;
while (l <= r) {
int mid = (l + r) >> 1;
if (pre[R] - pre[mid - 1] < vt * 2) {
Ans = mid;
r = mid - 1;
}
else l = mid + 1;
}
/// [2, 5] = dung
/// [3, 5] = dung
/// ...
/// [5, 5] = dung
/// [Ans, R] = dung
/// [Ans + 1, R] = dung
/// ...
/// [R, R] = dung
Num += R - Ans + 1;
}
cout << Num;
}
signed main() {
freopen(TASK".INP","r",stdin);
freopen(TASK".OUT","w",stdout);
ios_base::sync_with_stdio(false); cin.tie(0); cout.tie(0);
int T = 1;
// cin >> T;
while (T -- ) {
Read_Input();
Solve();
}
}
Ly8vIEF1dGhvciA6IE5ndXnhu4VuIFRow6FpIFPGoW4gLSBLMTggLSBLSE1UIC0gVUlUCi8vLyBUcmFpbmluZyBJQ1BDIDIwMjQKCiNpbmNsdWRlPGJpdHMvc3RkYysrLmg+CgovLy8gI3ByYWdtYSBHQ0Mgb3B0aW1pemUoIk8zLHVucm9sbC1sb29wcyIpCi8vLyAjcHJhZ21hIEdDQyB0YXJnZXQoImF2eDIsYm1pLGJtaTIsbHpjbnQscG9wY250IikKCiNkZWZpbmUgZmkgZmlyc3QKI2RlZmluZSBzZSBzZWNvbmQKI2RlZmluZSBUQVNLICJtYXgiCiNkZWZpbmUgcGIgcHVzaF9iYWNrCiNkZWZpbmUgRUwgY291dCA8PCBlbmRsCiNkZWZpbmUgVGkyMF9udHNvbiBpbnQgbWFpbigpCiNkZWZpbmUgaW4oeCkgY291dCA8PCB4IDw8IGVuZGwKI2RlZmluZSBhbGwoeCkgKHgpLmJlZ2luKCksKHgpLmVuZCgpCiNkZWZpbmUgZ2V0Yml0KHgsIGkpICgoKHgpID4+IChpKSkgJiAxKQojZGVmaW5lIGNudGJpdCh4KSBfX2J1aWx0aW5fcG9wY291bnQoeCkKI2RlZmluZSBGT1IoaSxsLHIpIGZvciAoaW50IGkgPSBsOyBpIDw9IHI7IGkrKykKI2RlZmluZSBGT1JEKGksbCxyKSBmb3IgKGludCBpID0gbDsgaSA+PSByOyBpLS0pCiNkZWZpbmUgRGVidWcoYSxuKSBmb3IgKGludCBpID0gMTsgaSA8PSBuOyBpKyspIGNvdXQgPDwgYVtpXSA8PCAiICI7IGNvdXQgPDwgZW5kbAoKdXNpbmcgbmFtZXNwYWNlIHN0ZDsKCnR5cGVkZWYgbG9uZyBsb25nIGxsOwp0eXBlZGVmIHZlY3RvcjxpbnQ+IHZpOwp0eXBlZGVmIHBhaXI8aW50LGludD4gdmlpOwp0eXBlZGVmIHVuc2lnbmVkIGxvbmcgbG9uZyB1bGw7CnR5cGVkZWYgdmVjdG9yPHZlY3RvcjxpbnQ+PiB2dmk7CmludCBmYXN0TWF4KGludCB4LCBpbnQgeSkgeyByZXR1cm4gKCgoeS14KT4+KDMyLTEpKSYoeF55KSleeTsgfQoKY29uc3QgaW50IE4gPSA1ZTUgKyA1Owpjb25zdCBpbnQgb28gPSBJTlRfTUFYOwpjb25zdCBpbnQgbW9kID0gMWU5ICsgNzsKY29uc3QgaW50IGQ0eFs0XSA9IHstMSwgMCwgMSwgMH0gLCBkNHlbNF0gPSB7MCwgMSwgMCwgLTF9Owpjb25zdCBpbnQgZDh4WzhdID0gey0xLCAtMSwgMCwgMSwgMSwgMSwgMCwgLTF9LCBkOHlbOF0gPSB7MCwgMSwgMSwgMSwgMCwgLTEsIC0xLCAtMX07CgppbnQgbiwgYVtOXTsKbG9uZyBsb25nIHByZVtOXSwgTnVtID0gMDsKCmlubGluZSB2b2lkIFJlYWRfSW5wdXQoKSB7CiAgICBjaW4gPj4gbjsKICAgIEZPUihpLCAxLCBuKSB7CiAgICAgICAgY2luID4+IGFbaV07CiAgICAgICAgcHJlW2ldID0gcHJlW2kgLSAxXSArIGFbaV07CiAgICB9Cgp9CgppbmxpbmUgdm9pZCBTb2x2ZSgpIHsKICAgIEZPUihSLCAxLCBuKSB7CiAgICAgICAgLy8vIGRhbSBiYW8gbWF4WzEsIFJdID0gYVtSXQoKICAgICAgICAvLy8gZGFtIGJhbyBtYXhbMiwgUl0gPSBhW1JdOwogICAgICAgIGludCB2dCA9IGFbUl07CiAgICAgICAgaW50IGwgPSAxLCByID0gUiwgQW5zID0gLTE7CgogICAgICAgIHdoaWxlIChsIDw9IHIpIHsKICAgICAgICAgICAgaW50IG1pZCA9IChsICsgcikgPj4gMTsKICAgICAgICAgICAgaWYgKHByZVtSXSAtIHByZVttaWQgLSAxXSA8IHZ0ICogMikgewogICAgICAgICAgICAgICAgQW5zID0gbWlkOwogICAgICAgICAgICAgICAgciA9IG1pZCAtIDE7CiAgICAgICAgICAgIH0KICAgICAgICAgICAgZWxzZSBsID0gbWlkICsgMTsKICAgICAgICB9CgogICAgICAgIC8vLyBbMiwgNV0gPSBkdW5nCiAgICAgICAgLy8vIFszLCA1XSA9IGR1bmcKICAgICAgICAvLy8gLi4uCiAgICAgICAgLy8vIFs1LCA1XSA9IGR1bmcKCiAgICAgICAgLy8vIFtBbnMsIFJdID0gZHVuZwogICAgICAgIC8vLyBbQW5zICsgMSwgUl0gPSBkdW5nCiAgICAgICAgLy8vIC4uLgogICAgICAgIC8vLyBbUiwgUl0gPSBkdW5nCgogICAgICAgIE51bSArPSBSIC0gQW5zICsgMTsKICAgIH0KICAgIGNvdXQgPDwgTnVtOwp9CgpzaWduZWQgbWFpbigpIHsKICAgIGZyZW9wZW4oVEFTSyIuSU5QIiwiciIsc3RkaW4pOwogICAgZnJlb3BlbihUQVNLIi5PVVQiLCJ3IixzdGRvdXQpOwogICAgaW9zX2Jhc2U6OnN5bmNfd2l0aF9zdGRpbyhmYWxzZSk7IGNpbi50aWUoMCk7IGNvdXQudGllKDApOwogICAgaW50IFQgPSAxOwovLyAgICBjaW4gPj4gVDsKICAgIHdoaWxlIChUIC0tICkgewogICAgICAgIFJlYWRfSW5wdXQoKTsKICAgICAgICBTb2x2ZSgpOwogICAgfQp9Cgo=