#include <bits/stdc++.h>
using namespace std;
typedef long long ll;
template<class T>bool chmax(T &a, const T &b) { if (a<b) { a=b; return true; } return false; }
template<class T>bool chmin(T &a, const T &b) { if (b<a) { a=b; return true; } return false; }
#define all(x) (x).begin(),(x).end()
#define fi first
#define se second
#define mp make_pair
#define si(x) int(x.size())
const int mod=998244353,MAX=300005,INF=1<<30;
#define ld long double

const ld pi=acosl((ld)-1.0L);

int main(){
    
    std::ifstream in("text.txt");
    std::cin.rdbuf(in.rdbuf());
    cin.tie(0);
    ios::sync_with_stdio(false);
    
    ll N,K;cin>>N>>K;
    vector<ld> a(N),b(N),c(N),d(N);
    vector<ll> f(N);
    for(int i=0;i<N;i++) cin>>f[i];
    
    for(int t=0;t<N;t++){
        for(int s=0;s<N;s++){
            if(s==K){
                a[t]+=cosl(-2.0l*pi*s*t/N);
                c[t]+=sinl(-2.0l*pi*s*t/N);
            }else{
                b[t]+=f[s]*cosl(-2.0l*pi*s*t/N);
                d[t]+=f[s]*sinl(-2.0l*pi*s*t/N);
            }
        }
    }
    
    ld le=-1e-9,ri=1e20;
    for(int q=0;q<200;q++){
        ld mid=(le+ri)/2;
        ld L=-1e20,R=1e20;
        for(int t=0;t<N;t++){
            ld A=a[t]*a[t]+c[t]*c[t];
            ld B=2.0*(a[t]*b[t]+c[t]*d[t]);
            ld C=b[t]*b[t]+d[t]*d[t]-mid*mid;
            
            if(B*B-4.0*A*C>1e-11){
                ld X=(-B-sqrtl(B*B-4.0*A*C))/(2.0*A);
                ld Y=(-B+sqrtl(B*B-4.0*A*C))/(2.0*A);
                chmax(L,X);
                chmin(R,Y);
            }else{
                ld Z=(-B)/(2.0*A);
                chmax(L,Z);
                chmin(R,Z);
            }
        }
        
        bool ok=false;
        
        ll z=roundl(L)-3;
        for(ll x=z;x<=z+9;x++){
            bool f=true;
            for(int t=0;t<N;t++){
                ld xx=a[t]*x+b[t];
                ld yy=c[t]*x+d[t];
                if(hypotl(xx,yy)<=mid){
                    
                }else{
                    f=false;
                }
            }
            ok|=f;
        }
        
        if(ok) ri=mid;
        else le=mid;
    }
    
    cout<<fixed<<setprecision(25)<<ri<<endl;
}