#include <fstream>

using namespace std;

ifstream fin("dezastru.in");
ofstream fout("dezastru.out");

double vect[30][30],a[30];
int n,k;

int main()
{
    fin>>n>>k;
    for(int i=1;i<=n;i++)
        fin>>a[i];

    for(int i=0;i<=n;i++)
        vect[i][0]=1;

    for(int i=1;i<=n;i++) {
        for(int j=1;j<=min(i,k);j++) {
            vect[i][j]=(vect[i-1][j]*(i-j)+vect[i-1][j-1]*a[i]*j)/i;

        }

    }
    fout<<vect[n][k];
    return 0;
}