ΠΡΟΓΡΑΜΜΑ ασκηση28
ΜΕΤΑΒΛΗΤΕΣ
ΧΑΡΑΚΤΗΡΕΣ: Μ[14]
ΑΚΕΡΑΙΟΙ: Β[14], i, ΣΥΝΟΛΟ, ΑΘΡΟΙΣΜΑ, ΜΕΓΙΣΤΟ
ΠΡΑΓΜΑΤΙΚΟΙ: ΜΟ
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΕΩΣ 14
ΔΙΑΒΑΣΕ Μ[i]
ΔΙΑΒΑΣΕ Β[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΣΥΝΟΛΟ <- 0
ΓΙΑ i ΑΠΟ 1 ΕΩΣ 14
ΑΝ Β[i] = 20 ΤΟΤΕ
ΣΥΝΟΛΟ <- ΣΥΝΟΛΟ + 1
ΓΡΑΨΕ "Το μάθημα με βαθμό 20 είναι το" + Μ[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ "Ο αριθμός των μαθημάτων με βαθμό 20 είναι" + ΣΥΝΟΛΟ
ΑΘΡΟΙΣΜΑ <- 0
ΓΙΑ i ΑΠΟ 1 ΕΩΣ 14
ΑΘΡΟΙΣΜΑ <- ΑΘΡΟΙΣΜΑ + B[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
MΟ <- ΑΘΡΟΙΣΜΑ / 14
ΓΡΑΨΕ "Ο μέσος όρος είναι" + ΜΟ
ΜΕΓΙΣΤΟ <- Β[1]
ΓΙΑ i ΑΠΟ 2 ΕΩΣ 14
ΑΝ Β[i] > ΜΕΓΙΣΤΟ ΤΟΤΕ
ΜΕΓΙΣΤΟ <- Β[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ "Ο μέγιστος βαθμός είναι" + ΜΕΓΙΣΤΟ
ΓΙΑ i ΑΠΟ 1 ΕΩΣ 14
ΑΝ Β[i] = ΜΕΓΙΣΤΟ ΤΟΤΕ
ΓΡΑΨΕ "Ο μέγιστος βαθμός υπάρχει στο μάθημα" + Μ[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ