#include<fstream>
#include<iomanip>
using namespace std;
ifstream f("dezastru.in");
ofstream g("dezastru.out");
double a[30][30],p[30];
int n,k,i,j;
int main()
{
    f>>n>>k;
    for(i=1;i<=n;i++)
        f>>p[i];
    for(i=0;i<=n;i++)
        a[i][0]=1;
        for(i=1;i<=n;i++)
            for(j=1;j<=i;j++)
            a[i][j]=(a[i-1][j]*(i-j)+a[i-1][j-1]*p[i]*j)/i;
        g<<fixed<<setprecision(6)<<a[n][k];

}