高中运动会

问题描述：

梦幻城市每年为全市高中生兴办一次运动大会。为促进各校同学之间的交流，采用特别的分队方式：每一个学校的同学，必须被均匀分散到各队，使得每一队中该校的人数皆相同。为增加比赛的竞争性，希望分成越多队越好。你的任务是由各校的人数，决定最多可分成的队数。

输入说明：

输入文件第一行为一个正整数N，代表学校的个数。接下来有N行，每行为一个正整数，分别代表这N个学校的人数。

输出说明：

最多可分成的队数。

输入范例1：

3

12

16

20

输出范例1：

4

输入范例2：

4

400

200

150

625

输出范例2：

25

数据约定：

学校数不超过500，每个学校人数最多为10000。

（最大公因数）~~

代码：

var
i,j,n,min:longint;
p:boolean;
a:array[1..1000] of longint;
begin
assign(input,'match.in');reset(input);
assign(output,'match.out');rewrite(output);
readln(n);
min:=maxlongint;
for i:=1 to n do begin
readln(a[i]);
if a[i] end;
inc(min);
repeat
dec(min);
p:=true;
for i:=1 to n do if a[i] mod min<>0 then p:=false;
if p then begin
writeln(min);
break;
end;
until min=0;
close(input);
close(output);
end.

MSN空间完美搬家到新浪博客!