/* 5個のデータの平均値と標準偏差を求める関数 */
#include <stdio.h>
#include <math.h>

double souwa(double a[], int n)
{
  int i;
  double s;

  s=0;
  i=0;
  while( i<n ){
    s=s+a[i];
    i=i+1;
  }
  return s;
}

#define N 100
main(){
  int i, n;
  double x[N], x2[N];
  double ave, v, sd;

  /* データの代入 */
  x[0]=1.0;
  x[1]=4.0;
  x[2]=-3.0;
  x[3]=9.0;
  x[4]=8.0;
  n=5;

  /* データの表示 */
  i=0;
  while( i<n ){
    printf("x[%d]=%g\n",i, x[i] );
    i=i+1;
  }

  /* 平均の計算 */
  ave=souwa( x, n )/n;

  /* 標準偏差の計算 */
  i=0;
  while(i<n){
      x2[i]=(x[i]-ave)*(x[i]-ave);
      i=i+1;
      }

  v=souwa(x2, n)/n;
  sd=sqrt(v);

  /* 結果の表示 */
  printf("平均値は %g です。\n", ave );
  printf("標準偏差は %g です。\n", sd );
  exit(0);
}