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