Tin học Pascal

[HThieu3177]

[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.

Cho dãy số gồm N (N<10) số lớn a1,a2,..,an(ai<10 mũ 9).Tìm ƯSCLN, BSCNN của N số trên.
các bác giúp em với em cần rất gấp T.T

 

[Trâm Nguyễn Thị Ngọc]

var
x,y,i,n,ucln,bcnn:longint;
a:array[1..100] of integer;
function uscln(x,y:integer):integer;
Begin
While x<>y do
if x>y then x:=x-y
else y:=y-x;
uscln:=x;
end;
Begin
write('nhap n:'); {có thể sử dụng Repeat để kiểm tra đk n}
readln(n);
For i:=1 to n do
begin
write('A[',i,']=');
readln(a[ i ]);
end;
ucln:=uscln(a[1],a[2]);
bcnn:=(a[1]*a[2]) div ucln;
For i:=3 to n do
begin
ucln:=uscln(bcnn,a[ i ]);
bcnn:=(bcnn*a[ i ]) div ucln;
end;
write('bscnn la:',bcnn);
readln
end;
Tại vì máy nhà e nếu gõ a[ i ] liền lại thì sẽ ra a nên mong anh(chị) thông cảm