#include<iostream>
#include<fstream>
#include<iomanip>
using namespace std;
int n,k,st[26],x;
double s,v[26];
inline void bktr(int p,double prod)
{
	int pval;
	for(pval=st[p-1]+1;pval<=n;pval++) {
		st[p]=pval;
		if(p==k) {
			s=s+2*prod*v[st[p]];
			x=x+2;
		}
		else bktr(p+1,prod*v[st[p]]);
	}
}
int main ()
{
	int i;
	ifstream f("dezastru.in");
	ofstream g("dezastru.out");
	f>>n>>k;
	for(i=1;i<=n;i++)
		f>>v[i];
	f.close();
	bktr(1,1);
	g<<fixed;
	g<<setprecision(6)<<s/x;
	g.close();
	return 0;
}