Άσκηση : φρουρός+πίνακας

Γράψτε αλγόριθμο που διαβάζει τις επωνυμίες κάποιων
καταστημάτων, τα ονοματεπώνυμα των ιδιοκτητών τους
και το εμπορικό τους αντικείμενο (η είσοδος δεδομένων
ολοκληρώνεται μόλις δοθεί ως επωνυμία καταστήματος
το κενό διάστημα), υπολογίζει και εμφανίζει το ποσοστό
των καταστημάτων που εμπορεύονται ΗΛΕΚΤΡΟΝΙΚΑ.
Επιπρόσθετα ο αλγόριθμος εμφανίζει και μια λίστα με
τα ονοματεπώνυμα των καταστηματαρχών κατά αλφαβη-
τική σειρά.
Παρατήρηση : Οι ιδιοκτήτες των καταστημάτων είναι
διαφορετικοί μεταξύ τους.

Λύση

       Αλγόριθμος Καταστήματα
       Ηλεκ <-- 0
       Πληθ <-- 0
       Αρχή_επανάληψης
            Διάβασε Επων
            Αν Επων < > '  ' τότε
                 Διάβασε Ονομ, Αντικ
                 Πληθ <-- Πληθ+1
                 Αν Αντικ = 'ΗΛΕΚΤΡΟΝΙΚΑ' τότε
                      Ηλεκ <-- Ηλεκ+1
                 Τέλος_αν
                 ΟΝ[Πληθ] <-- Ονομ
            Τέλος_αν
       Μέχρις_ότου Επων = '  '
       Αν Πληθ > 0 τότε
             ΠΟΣ <-- 100*Ηλεκ/Πληθ
             Εμφάνισε ΠΟΣ
             Για κ από 2 μέχρι Πληθ
                  Για λ από Πληθ μέχρι κ με_βήμα -1
                        Αν ΟΝ[λ-1] > ΟΝ[λ] τότε
                              Βοηθ <-- ΟΝ[λ-1]
                              ΟΝ[λ-1] <-- ΟΝ[λ]
                              ΟΝ[λ] <-- Βοηθ
                        Τέλος_αν
                  Τέλος_επανάληψης
             Τέλος_επανάληψης
             Για κ από 1 μέχρι Πληθ
                  Εμφάνισε ΟΝ[κ]
             Τέλος_επανάληψης
       αλλιώς
             Εμφάνισε 'Δε δόθηκαν δεδομένα'
       Τέλος_αν
       Τέλος Καταστήματα