Bonsoir,
une chose me frappe en lisant ton algorithme : il n'y a pas de réponse à la question posée.

Il est incompréhensible votre algorithme.

Avant de juger cet algoritlhme conseillons à Yassel998 de le tester sur 4 valeurs saisies comme : 7 ,  3 , 2 , 8

Après cet algo que contient le tableau censé contenir les valeurs bien ordonnées.

Un algo cela se vérifie avec des valeurs dont on connaît le résultat.

Cela ne veut pas dire qu'il marchera dans tous les cas mais cela permet d'éliminer des algos faux.

Dans le cas présent on pourrait tenter aussi :  6 , 3 , 7 , 3

Ou 1 ;  8 ; 3 ; 8

Salut Ramanujan
Il n'est pas vraiment incompréhensible.
C'est un tri à bulle.

En le présentant un peu mieux ( les commentaires sont introduits par # et sont en bleu)

Variable : i,j,n,pos :entier
                      temp :rèel
Tableaux. : T[ ]

Début
  Ecrire ("donner le nombre des rèels qui vous voulez saissie")
  Lire(n)
     # on initialise le tableau
  Redim (T[n]) 
  Pour i de 0 à n-1
    Ecrire("donner un rèel")
    Lire(T[n]) #faute de frappe,il faut lire T[i]
  Finpour
  # T est lu
  # on commence le traitement du tableau
  Pour i de 0 à n-2
    Pos<--i # pos sera l'indice du plus grand élément du tableau restant
    Pour j de i+1 à n-1
      Si T[pos] <T[j]
        Pos<--j
      Finsi      
    Finpour
    # maintenant pos est l'indice du plus grand élément entre i et n-1
    # on échange les valeurs de T[i] et T[pos]
    temp<--T[i]
    T[i]<--T[pos]
    T[pos]<--temp
    # fin de l'échange
  Finpour
  # le tableau T est trié dans l'ordre décroissant, au sens large
Fin 

Bonjour,

il manque dans ces commentaires ce qui fait le principe même de cette méthode de tri

...
Pour i de 0 à n-2
# ici le sous tableau d'indices 0 à i est trié (invariant de boucle)
Pos<--i # pos sera l'indice du plus grand élément du tableau restant
...

Merci à tous,pour  indiquation des nombre stotal des réels qui se répétent,est ce que on peut considèrer ca comme um solution,
Je déclare une autre variable (Nr),j'affectu au début Nr<-- 0  et dans la boucle intern Pour je mets
Si T[i]=T[j]
Nr<--Nr+1
Merci d'avance

ça ne marchera pas.
T[i] est le premier nombre de la partie non triée du tableau
prends un exemple, et tu verras ...

1 ; 1 ; 1 ; 1 i = 0, T[i] = 1, ils sont tous égaux à 1 donc Nr vaudra 3 (j de 1 à 3)
pos = 0 car aucun n'est >, on échange donc l'élément 0 avec lui-même
1; 1; 1 ; 1 en rouge la partie triée i = 1, idem on ajoute 2 à Nr qui vaut donc 5
pos = 1, on échange cet élément avec lui-même
1 ; 1 ; 1 ; 1 i = 2 on ajoute 1 à Nr qui vaut donc 6
pos = 2 on échange donc cet élément avec lui-même
1 ; 1 ; 1 ; 1
c'est fini (pour i de 0 à n-2 = 2)
le dernier élément est trié "par défaut" (puisqu'il est ≤ à tous ceux déja triés)

à la fin on a donc Nr = 6 !!

Oui t'as raison ,merci beaucoup pour l'explication,je verrai si je peux trouver une autre solution.

salut , une propositon sous excel

Sub classement()
t = Array(120, 5, 8, 3, 17, 2, 11, 5, 8, 6, 1, 21, 17)
For i = 0 To UBound(t) - 1
  For j = i + 1 To UBound(t)
    If t(i) > t(j) Then
      a = t(i)
      b = t(j)
      t(j) = a
      t(i) = b
    End If
   Next
  Next
For k = UBound(t) To 0 Step -1  'ordre decroissant
z = z & " " & t(k)
Next
MsgBox z 'c'est classé et cela retourne --> 120,21,17,17,11,8,8,6,5,5,3,2,1
'2 ieme partie:
'cration d 'un tableau ne contenant pas de repetitions qui servira à denombrer les termes se repetants:
t = Array(120, 5, 8, 3, 17, 2, 11, 5, 8, 6, 1, 21, 17)
For i = 0 To UBound(t) - 1
  For j = i + 1 To UBound(t)
    If t(i) = t(j) Then
     t(j) = ""
     End If
Next
Next

For k = 0 To UBound(t)
If t(k) <> "" Then
  w = w & " " & t(k)
End If
Next
MsgBox w

s = Split(w, " ")
t = Array(120, 5, 8, 3, 17, 2, 11, 5, 8, 6, 1, 21, 17)
For j = 1 To UBound(s)
n = 0
For h = 0 To UBound(t)
  If Val(s(j)) = Val(t(h)) Then
   n = n + 1
  End If
Next
If n > 1 Then
repet = repet + 1
End If
Next
MsgBox repet '--> donne 3 nombres qui se repetent
End Sub

bof ...
pourquoi créer deux tableaux ??
dans l'algo de Yassel998, au moment où on met un élément dans la partie triée du tableau (et à ce moment) on regarde juste s'il y est déja

une petite astuce supplémentaire est encore nécessaire à ça
sinon avec 1;1;1;4;4;5 il va dire 3 (deux répétitions du 1 et une du 4)