Cod sursa(job #330236)

Utilizator doru.nituNitu Doru Constantin doru.nitu Data 9 iulie 2009 10:45:32
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.67 kb
#include<stdio.h>

int a[14003],b[9003],i,j,n,nr;

int main()
{ 
    freopen("medie.in","r",stdin);
    freopen("medie.out","w",stdout);
    
    scanf("%d",&n);
    
    for(i=1;i<=n;i++) {  scanf("%d",&b[i]);
                         a[2*b[i]]++;
                      }
    for(i=1;i<=n;i++)
       for(j=i+1;j<=n;j++) if(a[b[i]+b[j]]) {    if(b[i]==(b[i]+b[j])/2)  nr+=(a[b[i]+b[j]]-2);
                                                 else nr+=a[b[i]+b[j]];
                                            }     
       
    printf("%d\n",nr);
    
    fclose(stdin);
    fclose(stdout);
    
    return 0;
}