羊羊整除

羊羊整除
Description
羊年到了，村长开始教小羊学习Pascal语言，刚开始学习四则运算。村长在白板上写下两个整数16和3，问小羊们
，有16只羊，平均分到3个羊村，每个羊村分到的数量必须相同，这个分配的数量最大是多少？小羊们很快就得到
了答案，每个羊村分到5只，有1只羊就只能落单了。村长在白板上写下5。没错，这个就是Div(整除)的用法！为了
检验小羊们是否掌握了整除运算，村长要求小羊们轮流从白板上任意选取两个不同的数，由大数整除小数，若所得
结果没有出现在白板上，就将该值写在白板上。直到小羊们再也找不到没出现过的整数。虽然这样上课很锻炼小羊
们的运算能力，但是课堂时间有限。为了控制课堂时间，村长想要知道，根据当前白板上的数字，最终白板上会出
现几个数字？现在请你帮他编写一个程序快速计算一下吧！
Input
第一行一个整数N，表示当前白板上出现的整数个数。
第二行N个整数，中间用空格分隔，表示当前在白板上的数字ai，保证每个数字都不相同。
N<=100，1<=ai<=100
Output
输出一个整数，表示最终白板上数字的个数。
Sample Input
2
16 3
Sample Output
4
【样例1解释】
选择16和3，写下5；选择5和3，写下1；共16，3，5，1，四个整数。——-
这一题可以先用一个数组f存储数字的情况：先初始化，把f全部打成逻辑假，然后在输入数字a的位置打上逻辑真。
为了节省时间，可以用maxn来找到输入数字a中，找最大值，用maxn进行循环。
这里要使用逆循环，因为题目意思是说用大的数来除以小的数，如果在循环中判断出f[i]和f[j]的位置都有数的话，就整除这两个数，并且在整除后的数的位置打上逻辑真。
最后就用一个for循环来统计就行了。

---

代码如下：