已知在in.dat中存有若干个(个数<200)1四位十进制数字组成的正整数,函数ReadDat读取这若干个正

已知在in．dat中存有若干个(个数<200)1四位十进制数字组成的正整数，函数ReadDat读取这若干个正整数并存入数组 XX中。请编制函数CalValue0，其功能要求： 1．求出该文件中共有多少个正整数totNum； 2．求这些正整数右移1位二进制位后，产生的新数是偶数的数的个数totCnt，以及满足此条件的这些正整数(右移前的值)的算术平均值totPjz。最后main函数调用函数WriteDat把所求的结果输出到out．dat文件中。 注意：部分源程序存放在test．C文件中。 请勿改动数据文件in．dat中的任何数据，主函数main、读函数ReadDat和输出函数WriteDat0的内容。