#include <bits/stdc++.h>
using namespace std;

// #define int long long
#define rep(i, n) for (long long i = (long long)(0); i < (long long)(n); ++i)
#define reps(i, n) for (long long i = (long long)(1); i <= (long long)(n); ++i)
#define rrep(i, n) for (long long i = ((long long)(n)-1); i >= 0; i--)
#define rreps(i, n) for (long long i = ((long long)(n)); i > 0; i--)
#define irep(i, m, n) for (long long i = (long long)(m); i < (long long)(n); ++i)
#define ireps(i, m, n) for (long long i = (long long)(m); i <= (long long)(n); ++i)
#define irreps(i, m, n) for (long long i = ((long long)(n)-1); i > (long long)(m); ++i)
#define SORT(v, n) sort(v, v + n);
#define REVERSE(v, n) reverse(v, v+n);
#define vsort(v) sort(v.begin(), v.end());
#define all(v) v.begin(), v.end()
#define mp(n, m) make_pair(n, m);
#define cinline(n) getline(cin,n);
#define replace_all(s, b, a) replace(s.begin(),s.end(), b, a);
#define PI (acos(-1))
#define FILL(v, n, x) fill(v, v + n, x);
#define sz(x) (long long)(x.size())

using ll = long long;
using vi = vector<int>;
using vvi = vector<vi>;
using vll = vector<ll>;
using vvll = vector<vll>;
using pii = pair<int, int>;
using pll = pair<ll, ll>;
using vs = vector<string>;
using vpll = vector<pair<ll, ll>>;
using vtp = vector<tuple<ll,ll,ll>>;
using vb = vector<bool>;

template<class T> inline bool chmax(T& a, T b) { if (a < b) { a = b; return 1; } return 0; }
template<class T> inline bool chmin(T& a, T b) { if (a > b) { a = b; return 1; } return 0; }

template<class t> using vc=vector<t>;
template<class t> using vvc=vc<vc<t>>;

const ll INF = 1e9+10;
const ll MOD = 1e9+7;
const ll LINF = 1e18;

// 元のスコアが与えられる
// 自分は100sプラスされる、他のn-1は順位に応じて得点をプラス
// 得点は列挙できる
// n=1e5程度
// 今見ているiが取れる値の数は列挙したものの中から二分探索で求められる
// aを値の大きい順にソート => 前ほど取れる順位の範囲が小さい
// BITでその添え字まででいくつ使ったかを管理
// 今の添え字 > その添え字までの累積和+1 ならng

// ある3つの並びが1通りしか許容しない場合、1 2 3
// 1/3 * 1/2 * 1/1
// 5人で5個をとること考える
// 3人は先頭3つを取れる場合を考える
// 3*2*1/(5*4*3) 分母も減っていく => 使える個数が減っていくから

void fail(){
  cout << 0 << endl;
  exit(0);
}

signed main()
{
  cin.tie( 0 ); ios::sync_with_stdio( false );
  
  ll n,s,id; cin>>n>>s>>id;
  
  vll a(n);
  rep(i,n) cin>>a[i];
  
  double me=a[id]+100*s;
  vll b;
  rep(i,n){
    if(i==id) continue;
    b.push_back(a[i]);
  }
  sort(b.rbegin(),b.rend());
  
  vc<ll> point;
  reps(i,n-1){
    ll p=50*s+500*s/(8+2*i); // 小数以下を丸めてよい => remと等しいならrem以上であることが確約されるので
    point.push_back(p);
  }
  sort(all(point));
  
  double ans=1;
  rep(i,b.size()){
    ll rem=me-b[i];
    if(rem<=0) fail();
    
    auto idx=upper_bound(all(point), rem);
    if(idx==point.begin()) fail();
    
    ll x=idx-point.begin()-1;
    
    ans*=(x+1-i)*1.0/(point.size()-i);
  }
  printf("%.15lf\n", ans);
  
}