! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΝΙΟΣ 2003 - ΘΕΜΑ 4
! ===============================================================================================
! Μια αλυσίδα κινηματογράφων έχει δέκα αίθουσες. Τα ονόματα των αιθουσών καταχωρούνται σε ένα
! μονοδιάστατο πίνακα και οι μηνιαίες εισπράξεις κάθε αίθουσας για ένα έτος καταχωρούνται σε
! πίνακα δύο διαστάσεων.
! Να γράψετε αλγόριθμο ο οποίος:
! α. να διαβάζει τα ονόματα των αιθουσών
! β. να διαβάζει τις μηνιαίες εισπράξεις των αιθουσών αυτού του έτους
! γ. να υπολογίζει τη μέση μηνιαία τιμή των εισπράξεων για κάθε αίθουσα
! δ. να βρίσκει και να εμφανίζει τη μικρότερη μέση μηνιαία τιμή
! ε. να βρίσκει και να εμφανίζει το όνομα ή τα ονόματα των αιθουσών που έχουν την ανωτέρω
! μικρότερη μέση μηνιαία τιμή.
! Παρατήρηση : Θεωρήστε ότι οι μηνιαίες εισπράξεις είναι θετικοί αριθμοί.
! ===============================================================================================
ΠΡΟΓΡΑΜΜΑ HM_2003_06_4
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: i,j
ΠΡΑΓΜΑΤΙΚΕΣ: Εισπράξεις[10,12],s,mo[10],min
ΧΑΡΑΚΤΗΡΕΣ: Αίθουσα[10],name
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
ΓΡΑΨΕ 'Δώσε το όνομα της αίθουσας',i
ΔΙΑΒΑΣΕ Αίθουσα[i]
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
ΓΡΑΨΕ 'Δώσε την είσπραξη για τον',j,'ο μήνα.'
ΔΙΑΒΑΣΕ Εισπράξεις[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
s <-- 0
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
s <-- s + Εισπράξεις[i,j]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
mo[i] <-- s/12
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
min <-- mo[1]
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10
ΑΝ mo[i] < min ΤΟΤΕ
min <-- mo[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'H μικρότερη μέση μηνιαία είσπραξη είναι',min
ΓΡΑΨΕ 'Tην είσπραξη αυτή είχαν οι εξής αίθουσες'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
ΑΝ mo[i] = min ΤΟΤΕ
ΓΡΑΨΕ Αίθουσα[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ