#include "bits/stdc++.h"
#define ll long long int
#define vll vector<ll>
#define vi vector<int>
#define pll pair<long long, long long>
#define vpll vector < pair<long long,long long> >
#define all(c) c.begin(),c.end()
#define pb push_back
#define nl cout << '\n'
#define ff first
#define ss second
#define mod 998244353
#define inf 1000000000000000001
#define rep(i, n) for(int i = 0; i < n; ++i)
#define repA(i, a, n) for(int i = a; i <= n; ++i)
#define repD(i, a, n) for(int i = a; i >= n; --i)
using namespace std;
void solve(){
ll n, m, h;
cin >> n >> m >> h;
vll v(m);
rep(i, m){
cin >> v[i];
}
ll tot = 0;
for(auto i: v)
tot += i;
if (tot < n)
{
cout << -1;
return;
}
if (v[h] == 1 or n == 1)
{
cout << 0;
return;
}
cout << fixed << setprecision(20) << (n-1) / (double)(tot - 1);
}
int main(){
// ios::sync_with_stdio(0);
// cin.tie(0); cout.tie(0);
int t = 1, tmp = 0;
// cin >> t;
while(t--){
// cout << "Case #" << ++tmp << ": ";
solve();
if(t) cout << "\n";
}
cerr << "Time : " << (double)clock() / (double)CLOCKS_PER_SEC << "s\n";
return 0;
}
I2luY2x1ZGUgImJpdHMvc3RkYysrLmgiCgojZGVmaW5lIGxsIGxvbmcgbG9uZyBpbnQKI2RlZmluZSB2bGwgdmVjdG9yPGxsPgojZGVmaW5lIHZpIHZlY3RvcjxpbnQ+CiNkZWZpbmUgcGxsIHBhaXI8bG9uZyBsb25nLCBsb25nIGxvbmc+CiNkZWZpbmUgdnBsbCB2ZWN0b3IgPCBwYWlyPGxvbmcgbG9uZyxsb25nIGxvbmc+ID4KI2RlZmluZSBhbGwoYykgYy5iZWdpbigpLGMuZW5kKCkKI2RlZmluZSBwYiBwdXNoX2JhY2sKI2RlZmluZSBubCBjb3V0IDw8ICdcbicKI2RlZmluZSBmZiBmaXJzdAojZGVmaW5lIHNzIHNlY29uZAojZGVmaW5lIG1vZCA5OTgyNDQzNTMKI2RlZmluZSBpbmYgMTAwMDAwMDAwMDAwMDAwMDAwMQoKI2RlZmluZSByZXAoaSwgbikgICAgICBmb3IoaW50IGkgPSAwOyBpIDwgIG47ICsraSkKI2RlZmluZSByZXBBKGksIGEsIG4pICBmb3IoaW50IGkgPSBhOyBpIDw9IG47ICsraSkKI2RlZmluZSByZXBEKGksIGEsIG4pICBmb3IoaW50IGkgPSBhOyBpID49IG47IC0taSkKCnVzaW5nIG5hbWVzcGFjZSBzdGQ7Cgp2b2lkIHNvbHZlKCl7CiAgICBsbCBuLCBtLCBoOwogICAgY2luID4+IG4gPj4gbSA+PiBoOwogICAgdmxsIHYobSk7CiAgICByZXAoaSwgbSl7CiAgICAgICAgY2luID4+IHZbaV07CiAgICB9CgogICAgbGwgdG90ID0gMDsKICAgIGZvcihhdXRvIGk6IHYpCiAgICAgICAgdG90ICs9IGk7CiAgICBpZiAodG90IDwgbikKICAgIHsKICAgICAgICBjb3V0IDw8IC0xOwogICAgICAgIHJldHVybjsKICAgIH0KICAgIGlmICh2W2hdID09IDEgb3IgbiA9PSAxKQogICAgewogICAgCWNvdXQgPDwgMDsKICAgIAlyZXR1cm47CiAgICB9CiAgICBjb3V0IDw8IGZpeGVkIDw8IHNldHByZWNpc2lvbigyMCkgPDwgKG4tMSkgLyAoZG91YmxlKSh0b3QgLSAxKTsKfQoKaW50IG1haW4oKXsKICAgIC8vIGlvczo6c3luY193aXRoX3N0ZGlvKDApOwogICAgLy8gY2luLnRpZSgwKTsgY291dC50aWUoMCk7CiAKICAgIGludCB0ID0gMSwgdG1wID0gMDsKICAgIC8vIGNpbiA+PiB0OwogICAgd2hpbGUodC0tKXsKICAgICAgICAvLyBjb3V0IDw8ICJDYXNlICMiIDw8ICsrdG1wIDw8ICI6ICI7CiAgICAgICAgc29sdmUoKTsKICAgICAgICBpZih0KSBjb3V0IDw8ICJcbiI7CiAgICB9CiAgICBjZXJyIDw8ICJUaW1lIDogIiA8PCAoZG91YmxlKWNsb2NrKCkgLyAoZG91YmxlKUNMT0NLU19QRVJfU0VDIDw8ICJzXG4iOwogICAgcmV0dXJuIDA7Cn0=