Pagini recente » Cod sursa (job #2441624) | Monitorul de evaluare | Cod sursa (job #1033652) | Cod sursa (job #1628714) | Cod sursa (job #2005834)
#include <bits/stdc++.h>
#define DM 7005
#define DN 9001
using namespace std;
ifstream fin("medie.in");
ofstream fout("medie.out");
int exist[DM],n,ans,v[DN],maxVal;
int main()
{
fin>>n;
for(int i=1;i<=n;++i)
fin>>v[i],exist[v[i]]++,maxVal=max(maxVal,v[i]);
for(int i=1;i<=maxVal;++i){
ans+=(exist[i]*(exist[i]-1)*(exist[i]-2))/2;
if(!exist[i]) continue;
for(int cont=1;cont<i && i+cont<=maxVal;++cont){
ans+=exist[i+cont]*exist[i-cont];
}
}
fout<<ans;
return 0;
}