Μάθημα : ΕΙΣΑΓΩΓΗ ΣΤΙΣ ΑΡΧΕΣ ΤΗΣ ΕΠΙΣΤΗΜΗΣ ΤΩΝ Η/Υ

Ο καθηγητής έβαλε τους βαθμούς του Α’ τετραμήνου στην Πληροφορική και θέλει
να βρει το μέσο όρο του τμήματος και πόσοι μαθητές είναι άριστοι (βαθμός πάνω από 18). Οι βαθμοί
κυμαίνονται από 0 έως 20. Δεδομένου ότι το πλήθος των μαθητών είναι άγνωστο, ο καθηγητής θέλει
να τελειώσει την εισαγωγή των βαθμών όταν δώσει την ειδική τιμή -1. Το πλήθος των μαθητών δεν
είναι γνωστό εκ των προτέρων, μπορεί να είναι και μηδέν (0)

Αλγόριθμος Πληροφορική
πλ_αρ ← 0
πλ_μαθ ←0
αθρ ← 0
Εμφάνισε 'Δώσε βαθμό μαθητή'
Διάβασε β
Όσο β <> -1 επανάλαβε
Αν β > 18 τότε
πλ_αρ ←πλ_αρ + 1
τέλος_αν
άθρ← αθρ+ β
πλ_μαθ ← πλ_μαθ + 1
Εμφάνισε 'Δώσε βαθμό μαθητή'
Διάβασε β
τέλος_επανάληψης
Αν πλ_μαθ <> 0 τότε
μ_ο ← αθρ / πλς_μαθ
Γράψε μ_ο, πλ_αρ
αλλιώς
Γράψε ‘Δεν δόθηκε κανένας βαθμός’
τέλος_αν
Τέλος Πληροφορική