查人人中国名人网迷迭香精油防脱发:求n个自然数的最大公约数
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/29 01:20:15
求n个自然数的最大公约数
program gcd1;
const maxn=100;
var n,i,gcd:integer;
a:array[1..maxn] of integer;
procedure enter;
begin
write('n=(<100)');readln(n);
for i:=1 to n do
repeat
write('a[',i,']=');readln(a[i]);
until a[i]>0;
end;
procedure find_gcd(x,y:integer);{定义过程}
var r:integer;
begin
r:=x mod y;
while r<>0 do
begin x:=y;y:=r;r:=x mod y; end
gcd:=y;
end;
procedure print;
begin
writeln('GCD=' ,gcd);
end;
begin
enter;
gcd:=a[1];
for i:=2 to n do
find_gcd(gcd,a[i]);
print;
end.