Cod sursa(job #283363)

Utilizator raica_cristiraica dumitru cristian raica_cristi Data 19 martie 2009 08:08:20
Problema Medie Scor 20
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.71 kb
#include<stdio.h>
#define dim 9000
int a[dim],n,m,i,k,sol,j;
void read()
{
     scanf("%d",&n);
     for(i=1;i<=n;i++)
     scanf("%d",&a[i]);
}
void solve()
{
    for(i=1;i<=n;i++)
    {
        for(k=1;k<n;k++)
        {
            if(k==i)
            continue;
            for(j=k+1;j<=n;j++)
            {
                if(i==j)
                continue;
                if(a[i]==(float)(a[j]+a[k])/2)
           {
                 sol++;
             //    printf("%d %d %d\n",a[i],a[k],a[j]);
                 }
            }}}}

 
int main ()
{
    freopen("medie.in","r",stdin);
    freopen("medie.out","w",stdout);
    read();
    solve();
    printf("%d",sol);
    return 0;
}