#include <fstream>
#include <iostream>
#include <iomanip>
using namespace std;
ifstream fin ("dezastru.in");
ofstream fout ("dezastru.out");
int st[20],n,k,o,cnt,p;
double s,produs,a[30],vec[1002];
void tipar(int k)
{
    produs=1;
    for(int i=1;i<=k;i++)
    {
        produs=produs*a[st[i]];
    }
    vec[++o]=produs;
    cnt++;
}
int valid(int k)
{
     for(int i=1;i<k;i++)
        if(st[i]==st[k]) return 0;
     return 1;
}
int solutie(int k)
{
    if(k==p) return 1;
    return 0;
}
void bck(int k)
{
    int i,val;
    for(val=1; val<=n; val++)
    {
        st[k]=val;
        if(valid(k))
        {
            if(solutie(k)) tipar(k);
            else bck(k+1);
        }
    }
}
int main()
{
    fin>>n>>p;
    for(int i=1;i<=n;i++)
        fin>>a[i];
    bck(1);
    for(int i=1;i<=o;i++)
        s=s+(vec[i]/cnt);
    fout<<s;
}