Cod sursa(job #2005821)

Utilizator sergiudnyTritean Sergiu sergiudny Data 28 iulie 2017 12:13:46
Problema Medie Scor 60
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.62 kb
#include <bits/stdc++.h>
#define DM 7005
#define DN 9005
using namespace std;
ifstream fin("medie.in");
ofstream fout("medie.out");

int exist[DM],n,ans,v[DN];

bool integer(double x){
    return x == (int)x;
}

int main()
{
    fin>>n;
    for(int i=1;i<=n;++i)
        fin>>v[i],exist[v[i]]++;
    for(int i=1;i<=n;++i)
        for(int j=i+1;j<=n;++j){
            double ma = 1.0*(v[i]+v[j])/2;
            if(integer(ma)){
                exist[v[i]]--,exist[v[j]]--;
                ans+=exist[(int)ma];
                exist[v[i]]++,exist[v[j]]++;
            }
        }
    fout<<ans;
    return 0;
}