ΛΥΣΗ ΕΠΑΝΑΛΗΠΤΙΚΗΣ ΑΣΚΗΣΗΣ 1

Αλγόριθμος Συμβούλιο Για i από 1 μέχρι 20 Διάβασε Ο[i], Ψ[i] Τέλος_επανάληψης Για i από 2 μέχρι 20 Για j από 20 μέχρι i με_βήμα -1 Αν Ψ[j-1] < Ψ[j] τότε Αντιμετάθεσε Ψ[j-1], Ψ[j] Αντιμετάθεσε Ο[j-1], Ο[j] Τέλος_αν Τέλος_επανάληψης Τέλος_επανάληψης Για i από 1 μέχρι 7 Εμφάνισε Ο[i] Τέλος_επανάληψης Διάβασε οναναζ done ← ψευδής pos ← 0 i ← 1 Όσο (done = ψευδής) και (i <= 20) επανάλαβε Αν (Ο[i] = οναναζ) τότε done ← αληθής pos ← i Αλλιώς i ← i + 1 Τέλος_αν Τέλος_επανάληψης Αν (done = αληθής) τότε Αν (pos <= 7) τότε Εμφάνισε "Εκλέγεται" Αλλιώς Εμφάνισε "Δεν εκλέγεται" Τέλος_αν Αλλιώς Εμφάνισε "Λάθος όνομα" Τέλος_αν Τέλος Συμβούλιο