Algorithme LongueurSousSuiteIdentique;
var s: tableau d'entiers;
n, i, longueurMax, longueurActuelle: entier;
Début
n <- 1;
longueurMax <- 0;
écrire("Entrez les éléments de la suite (terminée par -1) : ");
répéter
lire(s[n]);
n <- n + 1;
jusqu'à (s[n-1] = -1);
longueurActuelle <- 1;
pour i de 2 à n-1 faire
si s[i] = s[i-1] alors
longueurActuelle <- longueurActuelle + 1;
sinon
si longueurActuelle > longueurMax alors
longueurMax <- longueurActuelle;
finsi
longueurActuelle <- 1;
finsi
finpour
écrire("La longueur de la plus longue sous-suite identique est : ", longueurMax);
Fin.