Cod sursa(job #328995)

Utilizator doru.nituNitu Doru Constantin doru.nitu Data 4 iulie 2009 12:15:22
Problema Dezastru Scor 70
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.59 kb
#include<stdio.h>

float a[27],b[27][27],s;
long long nr,i,j,n,k;


int main()
{ 
    freopen("dezastru.in","r",stdin);
    freopen("dezastru.out","w",stdout);
    
    scanf("%d %d",&n,&k);
    
    for(i=1;i<=n;i++) scanf("%f",&a[i]);
    for(i=0;i<=n;i++) b[i][0]=1;
    for(i=1;i<=n;i++) 
        for(j=1;j<=i;j++) b[i][j]=b[i-1][j]+b[i-1][j-1]*a[i];
   nr=1;
   j=1;      
   for(i=k+1;i<=n;i++) nr*=i;
   for(i=1;i<=n-k;i++) j*=i;
   nr/=j;
                      
   printf("%f\n",b[n][k]/nr);     
    
    
    fclose(stdin);
    fclose(stdout);
    return 0;
}