Program Bai_1;
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (12.04 KB, 1 trang )
program Tim_BCNN_nhieu_so ;
var n,m,kt,j,i,t:longint;
a:array[1..100] of integer;
function BCNN(k,p:integer):integer;
var u,v:integer;
begin
v:=k;
u:=p;
while k<>p do
begin
if k>p then k:=k-p
else p:=p-k;
bcnn:=v*u div k;
end;
end;
begin
write('Nhap So n=');readln(n);
for i:=1 to n do
begin
write('Nhap So Thu a[',i,']=');readln(a[i]);
end;
m:=bcnn(a[1],a[2]);
for i:=3 to n do
m:=bcnn(m,a[i]);
write('mat khau la: ',m);
readln;
end.
