Cod sursa(job #334365)

Utilizator udrescu_cristiUdrescu Cristian udrescu_cristi Data 26 iulie 2009 15:00:46
Problema Medie Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.65 kb
#include<iostream>
#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;
}