#include <fstream>
#include<iomanip>
#define dim 30
using namespace std;
int n,m,uz[dim],nr;
float s,sum,a[dim];
void gen(int k,float x)
{
  if(k>m)
    {
        s=s+x;
        nr++;
    }
    else
    for(int i=uz[k-1]+1;i<=n;i++)
    {
        uz[k]=i;
        gen(k+1,x*a[i]);
    }
}
int main()
{
    ifstream f("dezastru.in");
    ofstream g("dezastru.out");
    f>>n>>m;
    for(int i=1;i<=n;i++)
    f>>a[i];
    gen(1,1);
    g<<setprecision(6)<<s/nr;
}