Pagini recente » Rating Stefan Pascu (Stefan_Pascu) | Cod sursa (job #2675075) | Cod sursa (job #2140287) | Cod sursa (job #1167272) | Cod sursa (job #496842)
Cod sursa(job #496842)
#include<stdio.h>
#include<math.h>
int n,j,k,ev,as,m,a[30],sol;
double stot,sx,rasp,s[30];
void back(int l,int pi,double qq)
{
if(l==k+1)
{
stot+=qq;
sol++;
return;
}
for(int i=pi+1;i<=n+l-k+1;i++)
back(l+1,i,qq*s[i]);
}
int main()
{
freopen("dezastru.in","r",stdin);
freopen("dezastru.out","w",stdout);
scanf("%d%d",&n,&k);
for(int i=1;i<=n;i++)
scanf("%lf",&s[i]);
back(1,0,1.0);
rasp=(double)stot/(double)sol;
printf("%.6lf",rasp*2);
return 0;
}