Giúp mình với! Bài tập chương trình con.

[tu1232403]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết chương trình trong đó xây dựng và sử dụng hàm UCLN của 2 số nguyên dương để:
- Nhập một mảng gồm n số nguyên dương (n<=20).
- In lên màn hình UCLN của các số trong mảng.

 

[harry9xsakura]

program UCLN;
uses crt;
var n,b,i,m:integer; a:array[1..100]of integer;
function ucln(x,y:integer):integer;
var j:integer;
begin
for j:=1 to x do
if (x mod j=0) and (y mod j=0) then ucln:=j;
end;
begin clrscr;
writeln('nhap so n');
readln(n);
for i:=1 to n do
begin
writeln('nhap so');
readln(a);
end;
for i:=1 to n do
a[i+1]:=ucln(a,a[i+1]);
m:=a[i+1];
writeln('uoc chung lon nhat cua day la ',m);
readln;
end.

 

[thienvamai]

ucln(a,b) với a>b:
-là a nếu b=0
-là ucln(b,a mod b) nếu b khác 0