#include <bits/stdc++.h>
using namespace std;
long long int modpow(long long int n, long long int m) {
  long long int ans = 1;
  while (m) {
    if (m & 1) ans *= n;
    m /= 2;
    n *= n;
    ans %= 1000000007;
    n %= 1000000007;
  }
  return ans;
}
long long int modinv(long long int n, long long int m) {
  return modpow(n, m - 2);
}
long long int extend(long long int a, long long int b, long long int *first,
                     long long int *second) {
  if (a == 0) {
    *first = 0;
    *second = 1;
    return b;
  }
  long long int x1, y1;
  long long int gcd = extend(b % a, a, &x1, &y1);
  *first = y1 - (b / a) * x1;
  *second = x1;
  return gcd;
}
void ina(long long int a[], int n) {
  for (int i = 0; i < n; i++) cin >> a[i];
}
bool prime[200000];
void sieve() {
  for (int i = 2; i * i < 200000; i++) {
    if (prime[i]) {
      for (int j = i * i; j < 200000; j += i) {
        prime[j] = false;
      }
    }
  }
}
int main() {
  long long int n, m, h;
  cin >> n >> m >> h;
  long long int a[m];
  ina(a, m);
  long long int s = 0;
  for (int i = 0; i < m; i++) s += a[i];
  s -= 1;
  long long int k = a[h - 1] - 1;
  n--;
  if (s < n) {
    cout << -1;
    return 0;
  }
  long long int t = s - k;
  long double ans = 1;
  for (int i = 0; i < n; i++) {
    ans = ans * (t - i);
    ans = ans / (s - i);
  }
  cout << setprecision(20) << 1.0 - ans;
}
