#include<stdio.h>
#include<set>
#include<map>
using namespace std;
set<int>S;
map<int, int>M;
int a[121212];
int tn, tree[1212121];
void insert_g(int w, int g) {
for (int i = w + tn; i > 0; i /= 2)tree[i] += g;
}
int search_g(int ss, int ee) {
int s = ss + tn;
int e = ee + tn;
int res = 0;
while (s <= e) {
if (s % 2 == 1)res += tree[s++];
if (e % 2 == 0)res += tree[e--];
s /= 2; e /= 2;
}
return res;
}
int L[121212], R[121212];
int jd(int x) {if (x < 0)return -x; return x;}
int main() {
set<int>S;
int n;
int i, j;
scanf("%d", &n);
for (tn = 1; tn < n; tn *= 2);
for (i = 0; i < n; i++)scanf("%d", &a[i]), S.insert(a[i]);
int cnt = 0;
for (auto p : S) M[p] = cnt++;
for (i = 0; i < n; i++)a[i] = M[a[i]];
for (i = 0; i < tn * 2; i++)tree[i] = 0;
for (i = 0; i < n; i++)L[i] = search_g(a[i],n-1), insert_g(a[i], 1);
for (i = 0; i < tn * 2; i++)tree[i] = 0;
for (i = n-1; i >= 0; i--)R[i] = search_g(a[i],n-1), insert_g(a[i], 1);
int ans = 0;
for (i = 0; i < n; i++) {
int x, y;
if (L[i] > R[i])x = L[i], y = R[i];
else x = R[i], y = L[i];
if (x>y*2) ans++;
}
printf("%d", ans);
return 0;
}
I2luY2x1ZGU8c3RkaW8uaD4KI2luY2x1ZGU8c2V0PgojaW5jbHVkZTxtYXA+CnVzaW5nIG5hbWVzcGFjZSBzdGQ7CnNldDxpbnQ+UzsKbWFwPGludCwgaW50Pk07CmludCBhWzEyMTIxMl07CmludCB0biwgdHJlZVsxMjEyMTIxXTsKdm9pZCBpbnNlcnRfZyhpbnQgdywgaW50IGcpIHsKCWZvciAoaW50IGkgPSB3ICsgdG47IGkgPiAwOyBpIC89IDIpdHJlZVtpXSArPSBnOwp9CmludCBzZWFyY2hfZyhpbnQgc3MsIGludCBlZSkgewoJaW50IHMgPSBzcyArIHRuOwoJaW50IGUgPSBlZSArIHRuOwoJaW50IHJlcyA9IDA7Cgl3aGlsZSAocyA8PSBlKSB7CgkJaWYgKHMgJSAyID09IDEpcmVzICs9IHRyZWVbcysrXTsKCQlpZiAoZSAlIDIgPT0gMClyZXMgKz0gdHJlZVtlLS1dOwoJCXMgLz0gMjsgZSAvPSAyOwoJfQoJcmV0dXJuIHJlczsKfQppbnQgTFsxMjEyMTJdLCBSWzEyMTIxMl07CgppbnQgamQoaW50IHgpIHtpZiAoeCA8IDApcmV0dXJuIC14OyByZXR1cm4geDt9CmludCBtYWluKCkgewoJc2V0PGludD5TOwoJaW50IG47CglpbnQgaSwgajsKCXNjYW5mKCIlZCIsICZuKTsKCWZvciAodG4gPSAxOyB0biA8IG47IHRuICo9IDIpOwoJZm9yIChpID0gMDsgaSA8IG47IGkrKylzY2FuZigiJWQiLCAmYVtpXSksIFMuaW5zZXJ0KGFbaV0pOwoJaW50IGNudCA9IDA7Cglmb3IgKGF1dG8gcCA6IFMpIE1bcF0gPSBjbnQrKzsKCWZvciAoaSA9IDA7IGkgPCBuOyBpKyspYVtpXSA9IE1bYVtpXV07Cglmb3IgKGkgPSAwOyBpIDwgdG4gKiAyOyBpKyspdHJlZVtpXSA9IDA7Cglmb3IgKGkgPSAwOyBpIDwgbjsgaSsrKUxbaV0gPSBzZWFyY2hfZyhhW2ldLG4tMSksIGluc2VydF9nKGFbaV0sIDEpOwoJZm9yIChpID0gMDsgaSA8IHRuICogMjsgaSsrKXRyZWVbaV0gPSAwOwoJZm9yIChpID0gbi0xOyBpID49IDA7IGktLSlSW2ldID0gc2VhcmNoX2coYVtpXSxuLTEpLCBpbnNlcnRfZyhhW2ldLCAxKTsKCWludCBhbnMgPSAwOwoJZm9yIChpID0gMDsgaSA8IG47IGkrKykgewoJCWludCB4LCB5OwoJCWlmIChMW2ldID4gUltpXSl4ID0gTFtpXSwgeSA9IFJbaV07CgkJZWxzZSB4ID0gUltpXSwgeSA9IExbaV07CgkJaWYgKHg+eSoyKSBhbnMrKzsKCX0KCXByaW50ZigiJWQiLCBhbnMpOwoJcmV0dXJuIDA7Cn0=