Τώρα βρήκα λίγο χρόνο και το έλυσα και εγώ. Ο τρόπος που έκανα τη διαδικασία είναι ίσως λίγο "χαζός" αλλά θα έλεγα ότι είναι περισσότερο quick-n-dirty και βγάζει σωστό αποτέλεσμα στην ταξινόμηση όπως και να 'χει.
ΠΡΟΓΡΑΜΜΑ θεμα_δ_by_taseas
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i, j, k, max, sum_θετ[20]
ΧΑΡΑΚΤΗΡΕΣ: Π[20], αποτελ, ΑΠ[20, 100]
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΔΙΑΒΑΣΕ Π[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
j <- 1
ΔΙΑΒΑΣΕ αποτελ
ΟΣΟ αποτελ <> "ΤΕΛΟΣ" ΚΑΙ j <= 100 ΕΠΑΝΑΛΑΒΕ
ΑΠ[i, j] <- αποτελ !σίγουρα "Α" ή "Θ"
j <- j + 1
ΔΙΑΒΑΣΕ αποτελ !"Α" ή "Θ" ή "ΤΕΛΟΣ"
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ k ΑΠΟ j ΜΕΧΡΙ 100!k=101 εάν έχουν ληφθεί όλα τα αποτελέσματα, οπότε δεν μπαίνει να βάλει "Χ"
ΑΠ[i, k] <- "Χ"
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
max <- -1
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
sum_θετ[i] <- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 100
ΑΝ ΑΠ[i, j] = "Θ" ΤΟΤΕ
sum_θετ[i] <- sum_θετ[i] + 1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ max < sum_θετ[i] ΤΟΤΕ
max <- sum_θετ[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΑΝ sum_θετ[i] = max ΤΟΤΕ
ΓΡΑΨΕ Π[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΚΑΛΕΣΕ ΤΑΞΙΝΟΜΗΣΗ(sum_θετ, Π)
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΓΡΑΨΕ Π[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΔΙΑΔΙΚΑΣΙΑ ΤΑΞΙΝΟΜΗΣΗ(sum_θετ, Π)
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i, j, temp1, sum_θετ[20]
ΧΑΡΑΚΤΗΡΕΣ: temp2, Π[20]
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 20
ΓΙΑ j ΑΠΟ 20 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
ΑΝ Π[j] < Π[j - 1] ΤΟΤΕ
temp2 <- Π[j - 1]
Π[j - 1] <- Π[j]
Π[j] <- temp2
temp1 <- sum_θετ[j - 1]
sum_θετ[j - 1] <- sum_θετ[j]
sum_θετ[j] <- temp1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 20
ΓΙΑ j ΑΠΟ 20 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
ΑΝ sum_θετ[j] > sum_θετ[j - 1] ΤΟΤΕ
temp1 <- sum_θετ[j - 1]
sum_θετ[j - 1] <- sum_θετ[j]
sum_θετ[j] <- temp1
temp2 <- Π[j - 1]
Π[j - 1] <- Π[j]
Π[j] <- temp2
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ