Chương trình con và lập trình có cấu trúc

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Võ Văn Thái

Viết chương trình có sử dụng chương trình con để tìm ước chung lớn nhất của một dãy số a1, a2, ...,an.

Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:19

uses crt;
var i,n,c,b,uc:integer;
bcnn:int64;
a:array[1..100] of integer;
{--------------------------chuong-trinh-con-tim-ucln-cua-hai-so---------------}
function ucln(c,b:integer):integer;
var r:integer;
begin
r:=c mod b;
while r<>0 do
begin
c:=b;
b:=r;
r:=c mod b;
end;
ucln:=b;
end;
{---------------------------chuong-trinh-chinh-----------------------------------}
begin
clrscr;
Write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;

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

for i:=3 to n do 

 uc:=ucln(uc,a[i]);

writeln(uc);

readln;

end.


Các câu hỏi tương tự
Ngọc Diệp
Xem chi tiết
Lê Trung Hiếu
Xem chi tiết
Đặng Công
Xem chi tiết
Trần Hường
Xem chi tiết
09 Lê Quang HIếu
Xem chi tiết
Mạnh Cường Đào Huỳnh
Xem chi tiết
Minh Thư
Xem chi tiết
Nguyễn Phạm Thanh Hằng
Xem chi tiết
Lê Thị Hà Giang
Xem chi tiết