Από τη λύση σου θεωρώ ότι έχεις καταλάβει το ερώτημα...
Ακολουθούν μερικές διορθώσεις... Δεν τις αναλύω γιατί πιστεύω ότι κι αυτές θα τις καταλάβεις αμέσως!
Για ι από 1 μέχρι 30
θ[ι] ← 0 ι
Τέλος_επανάληψης
Για ι από 2 μέχρι 30
Για κ από 30 μέχρι ι με_βήμα -1
Αν ΜΟ[κ-1] < ΜΟ[κ] τότε
Αντιμετάθεσε ΜΟ[κ-1],ΜΟ[κ]
Αντιμετάθεσε θ[κ-1],θ[κ]
Τέλος_αν
Τέλος_επανάληψης
Τέλος_επανάληψης
Για ι από 1 μέχρι 30
Εκτύπωσε ΟΝΟΜΑΤΑ[θ[ι]]
Για κ από 1 μέχρι 10
Εκτύπωσε ΟΝΟΜΑΤΑ[θ[ι]], ΒΑΘΜΟΙ[θ[ι],κ]
Τέλος_επανάληψης
Τέλος_επαναληψης
Η αλήθεια είναι ότι με εντυπωσίασε η προσέγγισή σου... Κρατάς τις αρχικές θέσεις ώστε μετά να μπορείς να προσπελάσεις τα στοιχεία του δισδιάστατου...
Μια άλλη λύση θα ήταν κατά την ταξινόμηση να κάνεις αντιμεταθέσεις και στις γραμμές κ-1 και κ του δισδιάστατου, οπότε: α) δεν χρειάζεται ο πίνακας θ, β) τα δεδομένα παραμένουν όλα τακτοποιημένα, γ) είναι πιο απλή η εμφάνιση. Βέβαια, από άποψη απόδοσης...
Για ι από 2 μέχρι 30
Για κ από 30 μέχρι ι με_βήμα -1
Αν ΜΟ[κ-1] < ΜΟ[κ] τότε
Αντιμετάθεσε ΟΝΟΜΑΤΑ[κ-1], ΟΝΟΜΑΤΑ[κ]
Αντιμετάθεσε ΜΟ[κ-1], ΜΟ[κ]
Για λ από 1 μέχρι 10
Αντιμετάθεσε ΒΑΘΜΟΙ[κ-1,λ], ΒΑΘΜΟΙ[κ,λ]
Τέλος επανάληψης
Τέλος_αν
Τέλος_επανάληψης
Τέλος_επανάληψης
Για ι από 1 μέχρι 30
Εκτύπωσε ΟΝΟΜΑΤΑ[ι]
Για κ από 1 μέχρι 10
Εκτύπωσε ΒΑΘΜΟΙ[ι, κ]
Τέλος_επανάληψης
Τέλος_επαναληψης