请编写函数fun，函数的功能是：删去一维数组中所有相同的数，使之只剩一个。数组中的数已按由小到大的顺序排列，函数返回删除后数组中数据的个数。

例如，一维数组中的数据是：2 2 2 3 4 4 5 6 6 6 6 7 7 8 9 9 10 10 10。

删除后，数组中的内容应该是：2 3 4 5 6 7 8 9 10。

注意：部分源程序在文件PROGl．C中。

请勿改动主函数main和其他函数中的任何内容，仅在函数fun的花括号中填入你编写的若干语句。