Cod sursa(job #155900)

Utilizator Andrei_ScorpioAndreiana Andrei Daniel Andrei_Scorpio Data 12 martie 2008 11:20:27
Problema Dezastru Scor 100
Compilator cpp Status done
Runda Arhiva de probleme Marime 0.45 kb
#include<fstream.h>
ifstream f("dezastru.in");
ofstream g("dezastru.out");
int x[30],k,n,m,i;
float S,a[30],nr,P;
int main()
{
f>>n>>m;
for(i=1;i<=n;i++)
    f>>a[i];
k=1;
x[k]=0;
P=1;
while(k>0)
    {
    if(x[k]<n-m+k)
	{
	x[k]++;
	    if(k==m)
		{
		S+=P*a[x[k]];
		nr++;
		}
	    else
		{
		P*=a[x[k]];
		k++;
		x[k]=x[k-1];
		}
	}
    else
	{
	k--;
	if(k>0)
		P/=a[x[k]];
	}
    }
g<<S/nr<<'\n';
g.close();
return 0;
}