Cod sursa(job #1405035)

Utilizator demetriad-dagpagDavid Demetriad demetriad-dagpag Data 28 martie 2015 19:36:55
Problema Dezastru Scor 50
Compilator c Status done
Runda Arhiva de probleme Marime 0.75 kb
#include <stdio.h>
#include <stdlib.h>
int v[30],f[30],nr=0;
double x[30],sum=0;
void bkt(int n,int p,int k)
{
    int i=1;
    double prod=1;
    if(p>k){
        prod=x[v[1]];
        nr++;
        for(i=2; i<=k; i++)
            prod*=x[v[i]];
        sum+=prod;
    }
    else
        for(v[p]=1; v[p]<=n; v[p]++)
            if(f[v[p]]==0)
            {
                f[v[p]]=1;
                bkt(n,p+1,k);
                f[v[p]]=0;
            }
}
int main()
{
    int n,k,i;
    freopen("dezastru.in","r",stdin);
    freopen("dezastru.out","w",stdout);
    scanf("%d%d",&n,&k);
    f[n+1]=1;
    for(i=1; i<=n; i++)
        scanf("%lf",&x[i]);
    bkt(n,1,k);
    printf("%lf\n",sum/(double)nr);

    return 0;
}