Cod sursa(job #655859)

Utilizator dutzulBodnariuc Dan Alexandru dutzul 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;
}