viết chương trình nhập vào mảng chứa n phần tử (n nhập từ bàn phím ).tìm ước chung lớn nhất của các phần tử trong mảnh
Giúp mình với

Question

viết chương trình nhập vào mảng chứa n phần tử (n nhập từ bàn phím ).tìm ước chung lớn nhất của các phần tử trong mảnh Giúp mình với

tuyetanhthu · Answer

var a:array[1..10000]of longint;

n,i,m:longint;

begin

writeln(‘nhap so phan tu cua mang’);

readln(n);

for i:=1 to n do

readln(a[i]);

if n>1 then begin

while a[1]<>a[2] do

if a[1]>a[2] then a[1]:=a[1]-a[2] else a[2]:=a[2]-a[1];

for i:=3 to n do

while a[i]<>a[i-1] do

if a[i]>a[i-1] then a[i]:=a[i]-a[i-1] else a[i-1]:=a[i]-a[i-1];

write(a[n]);

end else write(a[1]);

readln;

end.

0 bình luận về “viết chương trình nhập vào mảng chứa n phần tử (n nhập từ bàn phím ).tìm ước chung lớn nhất của các phần tử trong mảnh Giúp mình với”