Calcul du PGCD

Bonjour à tous et a toutes,
alors voila c'est ma première fois sur ce forum et je m'excuse par avance de poster ce sujet dans cette section, pour faire court je souhaiterais ecrire une fonction qui permettrait de calculer le PGCD de plusieurs nombres entiers.
voici ma tentative :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 fonction fctpgcd (a:entier, b:entier) entier Variable n,div,i :entier Debut Si(a>b)alors n<--b Sinon n<--a Finsi Pour i allant de 1 jusqu'a n Si a%i=0 et b%i=0 div<--i Finsi Fin pour retourne div
comme vous le voyez ce pseudo code ne fonctionne que pour 2 arguments, j'aimerai qu'il puisse marcher pour plusieurs entiers saisi par l'utilisateur
voila merci d'avance et encore une fois désolé pour le post ici

Bonjour :coucou:

Pourquoi n'appliques-tu pas le légendaire algorithme d'Euclide ?

salut

si je comprend bien tu as une suite de nombre et tu cherche le diviseur commun de cette suite
effectivement les algorithme du PGCD ne compare que 2 nombre entier

mais pour trouver le PGCD d'une suite il suffit de faire

Citation:

PGCD(PGCD(PGCD(A,B),C),...);