Question

[Phương Thảo]

Đang cần gấp, mọi người giúp mình với ạ.

--Lậpchương trình tìm ước chung lớn nhất của dãy số nguyên A gồm N phần tử được nhập vào từ bàn phím.

Answer 1

[Minh Lệ]

Program HOC24;

var a: array[1..32000] of integer;

ucln,i,n,ucln1: integer;

function uc(x,y: integer): integer;

var tg: integer;

begin

while y<>0 do

begin

tg:=x mod y;

x:=y;

y:=tg;

end;

uc:=x;

end;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

ucln1:=uc(a[1],a[2]);

for i:=3 to n do ucln:=uc(ucln1,a[i]);

write('Uoc chung lon nhat cua day so la: ',ucln);

readln

end.