verifier si toute les valeurs d'un tableau sont identiques?

Bonjour les gens,

Je voudrais savoir comment vérifier si toute les valeur d'un tableau sont identiques.
Dois je obligatoirement passer par 10 AND pour cela ou existe il une ruse programmante
Avec ce bout de code la condition est verifier si une des valeurs est égale a 1:

Code:

for i=0 to 12
if selected_score%(i)=1
next i
goto end_game
end_if

Je pense que c'est bete comme choux mais la je cale.

Merci pour vos conseils

tu dois pouvoir faire un truc du genre:

maxT% est l'indic max de ton tableau
i%=0: temp%=0
while (i%<maxT% and temp%=0)
Valeurs_Egales%=T(i%)-T(i%+1)
end_while
If Valeurs_Egales%=0 Then TraitementValeursEgales :Else: TraitementValeursDifférentes