#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

template<typename T>
struct BIT {
  int n;
  vector<T> d;
  BIT(int n=0):n(n),d(n+1) {}
  void add(int i, T x=1) {
    for (; i <= n; i += i&-i) {
      d[i] += x;
    }
  }
  T sum(int i) {
    T x = 0;
    for (; i; i -= i&-i) {
      x += d[i];
    }
    return x;
  }
  // 閉区間[l,r]の累積和を求める
  T sum(int l, int r) {
    return sum(r) - sum(l-1);
  }
};

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

// ある3つの並びが1通りしか許容しない場合、1 2 3 => 1/3!
// 1/3 * 1/2 * 1/1
// あるi個が同じx個を選べる => そのi個の順序は変わっても良い
// x/(n-1)*(x-1)/(n-1)*... *i!
// 5人で5個をとること考える
// 3人は先頭3つを取れる場合を考える
// 3*2*1/(5*4*3) 分母も減っていく => 使える個数が減っていくから

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<double> point;
  reps(i,n-1){
    double p=50*s+50*s/(0.8+0.2*i);
    point.push_back(p);
  }
  sort(all(point));
  
  // rep(i,n-1){
  //   printf("%.15lf\n", point[i]);
  // }
  
  BIT<ll> bit(n+5);
  
  double ans=1;
  rep(i,b.size()){
    double 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;
    ll cnt=bit.sum(x+1);
    if(cnt+1>x+1) fail();
    bit.add(x+1);
    
    ans*=(x+1-cnt)*1.0/(point.size()-i);
    
    // printf("%lld %.15lf\n", x, rem);
  }
  printf("%.15lf\n", ans);
  
}