Cod sursa(job #655860)

Utilizator dutzulBodnariuc Dan Alexandru dutzul Data 3 ianuarie 2012 15:59:43
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.63 kb
#include <fstream>
#define l 9005
using namespace std;
ifstream f("medie.in");
ofstream g("medie.out");
int  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;
}