Cod sursa(job #655859)
Utilizator | Data | 3 ianuarie 2012 15:58:36 | |
---|---|---|---|
Problema | Medie | Scor | 60 |
Compilator | cpp | Status | done |
Runda | Arhiva de probleme | Marime | 0.64 kb |
#include <fstream>
#define l 9005
using namespace std;
ifstream f("medie.in");
ofstream g("medie.out");
long long i,n,a[l],fr[2*l],j,rez;
int main()
{
f>>n;
for(i=1; i<=n; i++) {
f>>a[i];
fr[a[i]]++;
}
for(i=1; i<=n; i++)
for(j=i+1; j<=n; j++)
if ((a[i]+a[j])%2==0) {
fr[a[i]]--,fr[a[j]]--;
rez+=fr[(a[i]+a[j])/2];
fr[a[i]]++,fr[a[j]]++;
}
g<<rez;
f.close();
g.close();
return 0;
}