Άσκηση : επεξεργασία δοσμένου πλήθους τιμών

Γράψτε αλγόριθμο που διαβάζει την οικογενειακή κατάσταση
(Α - άγαμος, Δ - διαζευμένος, Ε - έγγαμος, Χ - χήρος) και την
ηλικία 118 ανδρών και υπολογίζει:
α) το ποσοστό (%) των έγγαμων,
β) το ποσοστό (%) επί του συνόλου των άγαμων που έχουν
    ηλικία μεγαλύτερη από 40 έτη,
γ) το μέσο όρο ηλικίας των διαζευμένων,
δ) το πλήθος των χήρων.

Παρατήρηση 
Ο αλγόριθμος πρέπει να διασφαλίζει ότι:
* οι ηλικίες είναι θετικοί αριθμοί που δεν υπερβαίνουν το 95,
* η τιμή εισόδου για την οικογενειακή κατάσταση είναι ένας
    από τους χαρακτήρες Α, Δ, Ε και Χ.

Λύση


      Αλγόριθμος Ανδρες
      Εγγ <-- 0
      Χηρ <-- 0
      Αγαμ <-- 0
      σ <-- 0
      Διαζ <-- 0
      Φ40 <-- 0
      Για κ από 1 μέχρι 118
            Αρχή_επανάληψης
                  Διάβασε Κατ
            Μέχρις_ότου (Κατ = 'Α') Ή (Κατ = 'Δ') Ή
                                  (Κατ = 'Ε') Ή (Κατ = 'Χ')
            Αρχή_επανάληψης
                  Διάβασε Ηλ
            Μέχρις_ότου (Ηλ > 0 ) ΚΑΙ (Ηλ <= 95) 
            Αν Κατ = 'Α' τότε
                  Αγαμ <-- Αγαμ+1
                  Αν Ηλ > 40 τότε
                       Φ40 <-- Φ40+1
                  Τέλος_αν
            αλλιώς_αν Κατ = 'Ε' τότε
                  Εγγ <-- Εγγ+1
            αλλιώς_αν Κατ = 'Δ' τότε
                  σ <-- σ+Ηλ
                  Διαζ <-- Διαζ+1
            αλλιώς     ! Χ
                  Χηρ <-- Χηρ+1
            Τέλος_αν
      Τέλος_επανάληψης
      ΠΟΣΕγγ <-- 100*Εγγ/118
      Εμφάνισε ΠΟΣΕγγ, Χηρ
      Αν Διαζ > 0 τότε
           ΜΟ <-- σ/Διαζ
           Εμφάνισε ΜΟ
      αλλιώς
           Εμφάνισε 'Δεν υπάρχει κανένας διαζευμένος'
      Τέλος_αν
      Αν Αγαμ > 0 τότε
           ΠΟΣΑγαμ <-- 100*Φ40/Αγαμ
           Εμφάνισε ΠΟΣΑγαμ
      αλλιώς
           Εμφάνισε 'Δεν υπάρχει κανένας άγαμος'
      Τέλος_αν
      Τέλος Ανδρες