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

thusotrac02

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 24 xem

1 trả lời

Thích Trả lời

linhvlog98

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.

Vote (0) Phản hồi (0) 2 năm trước

123th456

Uses Crt;
Var n,i,t: longint;
a: array [1..10000] of longint;
////
Function UCLN(a,b: longint): longint;
var tam: longint;
begin
While b > 0 do
begin
tam:= a;
a:= b;
b:= tam mod b;
end;

UCLN:= a;
end;
////
begin
clrscr;
Read(n);
For i:= 1 to n do
Read(a[i]);
t:= a[1];
For i:= 2 to n do
t:= UCLN(t,a[i]);
Write(t);
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

cho A=60độ a.Chứng minh ABCO là tứ giác nội tiếp và xác định tâm O của đường tròn ngoại tiếp tứ giác b. Chứng minh rằng tích AM.AN không đổi khi điểm M chuyển động trên cung AMB

Một thùng dầu sau khi lấy đi 16 lít thì số dầu còn lại bangwf 5/15 số dầu đựng trong thùng.Hỏi thùng đung bn lit dau câu2:10-2x=25x-3x

1Sự GN và Khác nhau của hệ tuần hoàn của chim bồ câu và thằn lằn. 2 Giair thích tại sao dạ dày củ bồ câu , gà thường có sản ,sỏi

1-5 . Cần gấp nên nhiều điểm nha🙏🙏🙏🙏🙏🙏🙏🙏

chuyển câu chủ động sang câu bị động 1.we should brush teeth before going to bed ⇒

Câu 34-38 🙏🙏🙏🙏🙏🙏🙏🙏🙏🙏🙏🙏🙏

Anh cj giúp e với e cần gấp lắm ạ

hạnh phúc như là nước hoa bạn không thể vẩy lên người khác mà không làm vương vài giọt lên chính mình viết đoạn nghị luận nêu suy nghĩ của em về câu nói trên

Bài V thờoi nha💩💩💩💩💩💩💩💩👌🏿ooooooiii

34-38. 🇻🇳🇻🇳🇻🇳🇻🇳🇻🇳🇻🇳🇻🇳🇻🇳🇻🇳🥰🥰🥰🥰🥰🥰

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến