/*code by ..::rasmo::... enjoy..*/
#include
#include


void odchyl(int n, double s[], double *odch, double *sr) // ta funkcja liczy odchylenie
{
int i;
double su,t;
su=0.0;
for(i=0;i {
t=s[i] - *sr;
su+=t*t;
}
*odch=sqrt(su/n);
}

int main()
{
int i,n=0,j=1;
double ciag[89];
double sred[300], odch[300], su=0.0, sw=0.0;

//ta petla zmienia 90-cioelementowe ciagi(j=1->1-90,j=2->91-180...)
for(j=1;j<=300;j++)
{
//ta petla zapisuje elementy ciagu do tablicy i liczy ich sume
for(i=0;i<=89;i++)
{
ciag[i]=(n*90)+i+1;
su+=ciag[i];
}
sw+=su; //sumy kolejnych ciagow sa do siebie dodawane aby uzyskac sume wszystkich
sred[n]=su/90.0; //liczona jest srednia n-tego ciagu i zapisana do tablicy srednich
su=0.0; //wyzerowanie su celem ponownego uzycia
odchyl(89,ciag,&odch[n],&sred[n]); //liczy odchylenie n-tego ciagu i zapisanie go do tablicy odchylen
printf("Ciag: <%.0f - %.0f)\nSrednia: %lf\nOdchylenie standartowe: %lf\n",ciag[0],ciag[89],sred[n],odch[n]);
su=0.0;
n++;
}
sred[300]=sw/(27000); //liczona jest srednia wszystkich elementow
printf("Ciag: <1 - 27000)\nSrednia: %lf\n",sred[300]);
sw=0.0;
//ta petla liczy sume srednich potrzebna du uzyskania sredniej srednich
for(i=0;i<=299;i++)
sw+=sred[i];

printf("\nSrednia srednich: %lf\n",sw/300);
return 0;

}