program Bai 1; 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 kp do begin if k>p then k[.]
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 kp 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 begin write('Nhap So Thu a[',i,']=');readln(a[i]); end; m:=bcnn(a[1],a[2]); for i:=3 to n m:=bcnn(m,a[i]); write('mat khau la: ',m); readln; end