Cod sursa(job #1882040)

Utilizator leraValeria lera Data 16 februarie 2017 21:58:42
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.52 kb
#include <iostream>
#include <fstream>
using namespace std;
ifstream fin("medie.in");
ofstream fout("medie.out");
int n,fr[14005],a[9005];
long long s;
int main()
{
    fin>>n;
    for(int i=1;i<=n;i++)
    {
        fin>>a[i];
        fr[a[i]*2]++;
    }
    for(int i=1;i<n;i++)
    {
        fr[a[i]*2]--;
        for(int j=i+1;j<=n;j++)
        {
            fr[a[j]*2]--;
            s+=fr[a[i]+a[j]];
            fr[a[j]*2]++;
        }
        fr[a[i]*2]++;
    }
    fout<<s;
    return 0;
}