已知在文件IN13.DAT中存有若干个(个数〈200)4位数字的正整数，函数ReadDat()的功能是读取这若干个正整数并存入数组xx中。请编制函数CalValue()，其功能要求： (1)求出该文件中共有多少个正整数totNum； (2)求这些数右移1位后，产生的新数是偶数的数的个数totCnt，以及满足此条件的这些数(右移前的值)的算术平均值totPjz，最后调用函数WriteDat()把所求的结果输出到文件OUT13.DAT中；
注意：部分源程序已给出。
请勿改动主函数main()、读函数ReadDat()和写函数WriteDat()的内容。
试题程序：
#include〈stdio.h>
#include〈conio.h>
#define MAXNUM 200
int xx [MAXNUM];
int totNum = 0; /* 文件IN13.DAT 中共有多少个正整数 */
int totCnt = 0; /* 符合条件的正整数的个数*/
double totPjz = 0.0; /* 平均值 */
int ReadDat (void);
void Writedat(void); void CalValue(void)
main ( )

int i;
clrscr ( );
for(i = 0; i〈 MAXNUM; i++)
xx[i] = 0;
if (ReadDat ())

print f ( "数据文件 IN13.DAT 不能打开! \007\n" );
return;

CalValue ( );
printf("文件IN13.DAT 中共有正整数= %d 个\n", totNum);
printf("符合条件的正整数的个数 = %d 个\n", totCnt);
printf("平均值=%.21f\n", totPjz);
Writedat ( );
int ReadDat (void)

FILE *fp;
int i = 0;
if((fp = fopen ("IN13.DAT", "r") == NULL)
return 1;
while(! feof(fp) )

fscanf(fp, "%d,", &xx[i++]);

fclosefp);
return 0;
void WriteDat(void)

FILE *fp;
fp = fopen("OUT13.DAT", "w");
fprintf(fp, "%d\n%d\n%.21f\n", totNum, totCnt, totPjz);
fclose(fp);