double fun(double  x[],double  *y)
{ int  i,j;    double  av;
/found/
  av=0.0;
/found/
  for(i=0; i<N; i++)  
	  av=av+x[i]/N;
  for(i=j=0; i<N; i++)
/found/
    if(x[i]>av)  y[j++]= x[i];
  y[j]=-1;
  return  av;
}


/found/
double fun (int m)
{ double y=0, d;
  int i;
/found/
  for(i=100;i<=m;i+=100)
     {d=(double)i*(double)i;
      y+=1.0/d;
     }
  return(y);
}


void fun(STU a[], STU *s)
{
  	int i;
  	*s=a[0];
  	for(i=0;i<N;i++)
  	if(s->s>a[i].s)
  	*s=a[i];
}