Tin học 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 18/07/2021 By aikhanh 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
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. Trả lời