Cod sursa(job #177472)

Utilizator MirageRobert Sandu Mirage Data 13 aprilie 2008 00:22:26
Problema Dezastru Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.43 kb
#include<stdio.h>
#define N 30
int c[N][N],n,k,i,j;
double a[N][N],v[N];
int main () {
	freopen("dezastru.in","r",stdin);
	freopen("dezastru.out","w",stdout);
	scanf("%d%d",&n,&k);
	for(i=0;i<n;++i)
		scanf("%lf",&v[i]);
	a[0][1]=1;
	c[0][1]=1;
	for(i=1;i<=n;++i)
		for(j=1;j<=k+1;++j){
			a[i][j]=a[i-1][j]+a[i-1][j-1]*v[i-1];
			c[i][j]=c[i-1][j-1]+c[i-1][j];
		}
	printf("%.6lf",a[n][k+1]/c[n][k+1]);
	return 0;
}