Cod sursa(job #2522508)

Utilizator qThunderStefan Durlanescu qThunder Data 12 ianuarie 2020 17:07:49
Problema Medie Scor 100
Compilator cpp-64 Status done
Runda Arhiva de probleme Marime 0.5 kb
#include <fstream>
using namespace std;
ifstream fin("medie.in");
ofstream fout("medie.out");
int s,n,m,s1,v[9004],a[9004],v2[9004],ma,t,i,j;
int main()
{
    fin>>n;
    for(i=1;i<=n;i++)
    {
        fin>>a[i];
        v[a[i]]++;
        m=max(m,a[i]);
        for(j=1;j<i;j++)
        {
            t=a[i]+a[j];
            if(t%2==1)
                continue;
            v2[t/2]++;
        }
    }
    for(i=1;i<=n;i++)
        s+=v2[a[i]]-v[a[i]]+1;
    fout<<s;
    return 0;
}