Άσκηση : πίνακας συχνοτήτων

Γράψτε πρόγραμμα το οποίο:
α) διαβάζει τα ύψη (σε εκατοστά) των μαθητών μιας τάξης
    (η είσοδος δεδομένων ολοκληρώνεται μόλις δοθεί η
    απάντηση 'ΟΧΙ' στην υποβαλλόμενη προς το χρήστη
    ερώτηση 'Υπάρχει άλλος μαθητής;')
β) υπολογίζει και εμφανίζει πόσοι από αυτούς έχουν ύψος
    160, 161, ...., 175 εκατοστά.

Λύση

      ΠΡΟΓΡΑΜΜΑ ΥΨΗ
      ΜΕΤΑΒΛΗΤΕΣ
             ΧΑΡΑΚΤΗΡΕΣ: ΑΠ
             ΑΚΕΡΑΙΕΣ: Φ[16],  Θ, κ, Υ
      ΑΡΧΗ
             ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 16
                    Φ[κ] <-- 0
             ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
             ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
                    ΔΙΑΒΑΣΕ Υ
                    ΑΝ (Υ >= 160) ΚΑΙ (Υ <= 175) ΤΟΤΕ
                            Θ <-- Υ-159
                            Φ[Θ] <-- Φ[Θ]+1
                    ΤΕΛΟΣ_ΑΝ
                    ΓΡΑΨΕ 'Υπάρχει άλλος μαθητής;'
                    ΔΙΑΒΑΣΕ ΑΠ
             ΜΕΧΡΙΣ_ΟΤΟΥ ΑΠ = 'ΟΧΙ'
             ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 16
                   ΓΡΑΨΕ Φ[κ]
             ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ