Cod sursa(job #37562)

Utilizator Ramona2007Furtuna Ramona Cristina Ramona2007 Data 25 martie 2007 11:01:00
Problema Dezastru Scor 0
Compilator cpp Status done
Runda preONI 2007, Runda 4, Clasa a 9-a si gimnaziu Marime 0.56 kb
#include<stdio.h>
 
   int main()
{
      double  a[26], b[26], c[26], n, k, s=1, suma=0, p, d, i, j;

    freopen("dezastru.in", "r", stdin);
    freopen("dezastru.out", "w", stdout);

scanf("%lf %lf", &n, &k);


for(i=1;i<=n;i++)
{ scanf("%lf", &a[i]); b[i]=c[i]=i; }

  while(s<=n)
{   c[n]=b[1];
   for(i=1;i<n;i++)
   { c[i]=b[i+1]; }  
 
   p=1;

     for(j=1;j<=k;j++)
      { p=p*a[c[j]]; }

     suma=suma+p; 

   s++;

   for(i=1;i<=n;i++)
   {  b[i]=c[i]; }

}  
    

 d=(suma*2)/(n*k);

printf("%lf", d);

return 0;

}