Si on develloppe un peu plus le sujet on peu aussi considerer un ensemble de nombre en le divisant en deux sous-ensembles. dès lors le ppcm de l'ensemble est aussi le ppcm des ppcm des deux sous-ensembles.

on peu exploiter cette particularité pour accelerer les calculs en prenant les deux premiers nombres, on calcul le ppcm, puis on prends le ppcm obtenu et le troisieme nombre, on calcule le ppcm, on prends le ppcm et le quatrieme et ainsi de suite jusqu'a la fin de la liste.

voici le code:

print "calcul du plus petit commun multiple"
input "combien de nombres voulez-vous comparer ";nb
dim n(nb)
maxi=0
for i=1 to nb
print "entrez le nombre numero ";i
input n(i)
next i
cls
print "je recherche le ppcm de ces nombres..."
sort n(, nb, 1
for i=1 to nb
print n(i)
next i
nb1=n(1)
nb2=n(2)
gosub [ppcm]
if nb>2 then
for u=3 to nb
nb1=ppcm
nb2=n(u)
gosub [ppcm]
next u
end if
print "le ppcm est :"
print ppcm
input r$
end

[ppcm]
count=0
while z=0
scan
z=1
count=count+1
ppcm=nb1*count
cp=ppcm/nb2
ab=int(cp)
if ab<>cp then z=0
wend
return

@++

ps: [code]test[/code]