ΠΡΟΓΡΑΜΜΑ Συχνότητα_Εμφάνισης_Βαθμών
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:i,max,grade,Β[30],ΣΥΧ[20]
ΑΡΧΗ
!Εισαγωγή του πίνακα βαθμολογιών
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 30
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε το βαθμό του',i,'ου μαθητή'
ΔΙΑΒΑΣΕ Β[i]
ΜΕΧΡΙΣ_ΟΤΟΥ Β[i]>0 ΚΑΙ (Β[i]<=20)
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Μηδενισμός του πίνακα συχνοτήτων
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
ΣΥΧ[i] <-- 0
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Υπολογισμός της συχνότητας εμφάνισης του κάθε βαθμού
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 30
ΣΥΧ[Β[i]] <-- ΣΥΧ[Β[i]] + 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Εντοπισμός της μέγιστης συχνότητας εμφάνισης κάποιου βαθμού
max <-- ΣΥΧ[1]
grade <-- 1
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 20
ΑΝ ΣΥΧ[i]>max ΤΟΤΕ
max <-- ΣΥΧ[i]
grade <-- i
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Παρουσίαση αποτελεσμάτων
ΓΡΑΨΕ 'Ο βαθμός με τη μεγαλύτερη συχνότητα εμφάνισης είναι ο', grade, 'με', max, 'εμφανίσεις'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ