!Προσπαθούσα να βρώ έναν γρήγορο τρόπο ταξινόμησης
!Ο συγκεκριμένος είναι αρκετές φορές πιο γρήγορος απο την φυσσαλίδα
!Όποιες προτάσεις για βελτίωση είναι ευπρόσδεκτες

Πρόγραμμα Γρήγορη_Ταξινόμηση

Σταθερές
  Ν=10

Μεταβλητές
  Ακέραιες:Ι,Κ,Α[Ν],ΠΡ

Αρχή

  Για Ι Από 1 Μέχρι Ν

    Α[Ι] <-- Ν-Ι+1
    Γράψε_ Α[Ι],''

  Τέλος_Επανάληψης

  Για Κ Από 1 Μέχρι Ν-1
    Για Ι Από 1 Μέχρι Ν-Κ+1

      Αν Α[Ι]>Α[Ν-Κ+1] Τότε

        ΠΡ <-- Α[Ν-Κ+1]
        Α[Ν-Κ+1] <-- Α[Ι]
        Α[Ι] <-- ΠΡ

      Τέλος_Αν

    Τέλος_Επανάληψης
  Τέλος_Επανάληψης

  Γράψε
  Γράψε

  Για Ι Από 1 Μέχρι Ν

    Γράψε_ Α[Ι],''

  Τέλος_Επανάληψης

Τέλος_Προγράμματος