Cod sursa(job #933332)

Utilizator PetrutiuPaulPetrutiu Paul Gabriel PetrutiuPaul Data 29 martie 2013 20:53:15
Problema Medie Scor 10
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.47 kb
#include <fstream>
#include<iostream>

using namespace std;

int a[9005], b[7005];
int main()
{
	int i, j, n, x, s=0;
    ifstream f("medie.in");
    ofstream g("medie.out");
    f>>n;
    for(i=1;i<n;i++)f>>a[i];
    for(i=1;i<=n;i++)
        for(j=i+1;j<=n;j++)
            if((a[i]+a[j])%2==0)
            {
                x=(a[i]+a[j])/2;
                b[x]++;
				if(a[i]==a[j])s-=2;
            }
    for(i=1;i<=n;i++)s+=b[a[i]];
    g<<s<<"\n";
}