☆题目93
请编制函数readdat()实现从文件in.dat中读取1000个十进制整数到数组xx中；请编制函数compute()，分别计算出xx中奇数的个数odd，偶数的个数even，平均值aver以及方差totfc的值，最后调用函数writedat()把结果输出到out.dat文件中。
 计算方差的公式如下：
 n 2
 totfc=1/n ∑ (xx[i]-aver)
 i=1
 原始数据文件存放的格式是：每行存放10个数，并用逗号隔开。（每个数均大于0且小于等于2000）
 部分源程序存在文件prog1.c中。
 请勿改动主函数main()和输出数据函数writedat()的内容。
#include 
#include 
#include 
#define max 1000

int xx[max],odd=0,even=0;
double aver=0.0,totfc=0.0;
void writedat(void);

int readdat(void)
{
 int i;
 file *fp;

 if((fp=fopen("in.dat","r"))==null) return 1;
/***************编制函数readdat()*****************/
 for(i=0;i { fscanf(fp,"%d,",&xx[i]);
 if((i+1)%10==0)
 fscanf(fp," ");
 }
/*********************************************/
 fclose(fp);
 return 0;
}

void compute(void)
{ int i;
 for(i=0;i { if(xx[i]%2) odd++;
 else even++;
 aver+=xx[i];
 }
 aver/=max;
 for(i=0;i totfc+=(xx[i]-aver)*(xx[i]-aver);
 totfc/=max;
}