ΠΡΟΓΡΑΜΜΑ βαθμολογια
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:πληθος,πληθοςΚΒ
ΠΡΑΓΜΑΤΙΚΕΣ:βαθμος,αθροισμα,max
ΧΑΡΑΚΤΗΡΕΣ: ονομα,ονομα_max
ΑΡΧΗ
αθροισμα <-- 0
πληθος <-- 0
πληθοςΚΒ <-- 0 !το πληθος των βαθμων που ειναι κατω απο τη βαση
ΓΡΑΨΕ 'δωσε ονομα και βαθμο μαθητη'
ΔΙΑΒΑΣΕ ονομα,βαθμος
max <-- βαθμος
ονομα_max <-- ονομα !το ονομα του μαθητη με τον μεγιστο βαθμο
ΟΣΟ βαθμος>0 ΕΠΑΝΑΛΑΒΕ
ΑΝ βαθμος>max ΤΟΤΕ
max <-- βαθμος
ονομα_max <-- ονομα
ΤΕΛΟΣ_ΑΝ
ΑΝ βαθμος<9.5 ΤΟΤΕ
πληθοςΚΒ <-- πληθοςΚΒ+1
ΤΕΛΟΣ_ΑΝ
αθροισμα <-- αθροισμα+βαθμος
πληθος <-- πληθος+1
ΓΡΑΨΕ 'δωσε ονομα και βαθμο μαθητη'
ΔΙΑΒΑΣΕ ονομα,βαθμος
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Ονομα,βαθμος του καλυτερου μαθητη:',ονομα_max,max
ΓΡΑΨΕ 'πληθος των μαθητων με βαθμο κατω απο τη βαση:',πληθοςΚΒ
ΑΝ πληθος<>0 ΤΟΤΕ
ΓΡΑΨΕ 'μεσος ορος βαθμων:',αθροισμα/πληθος
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'δεν μπορει να υπολογιστει ο μεσος ορος'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ βαθμολογια