Bonjour à tous

je veux faire un algorithme qui permet de saisir des nombres quelconque de valeur et qui les range au fur et à mesure dans un tableau un fois la saisie terminée le programme doit dire si les élèments du tableau sont tous consécutifs ou noms par exemple

si je saisie: 1 2 3 4 5 6 7 8 9 le programme dira que les nombres sont consicutifs

sinon le programme dira qu'ils ne le sont pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
var
t(4),i:entier
debut
écrire(" entrez 4 nombre")
pour i =0 à 4
       lire t(i)
fin pour i
pour i=0 à 4
       si t(i)=t(i)+1 alors 
              écrire(" les nombres sont consécutifs")
       sinon
              écrire("les nombres sont pas concécutis")
       fin si
fin pour i
fin
Merci à tous.