Μονοδιάστατοι Πίνακες: Λύσεις Ασκήσεων

Άσκηση 9

ΠΡΟΓΡΑΜΜΑ ΕμφιαλωσηΑναψυκτικου
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΜΠ[30], i, συνολο, συνολο1, συνολο2
ΠΡΑΓΜΑΤΙΚΕΣ: μεσος_ορος
ΑΡΧΗ
συνολο <- 0
συνολο1 <- 0
συνολο2 <- 0

ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 30
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε τον αριθμό μπουκαλιών που εμφιαλώθηκαν την ημέρα ', i, ': '
ΔΙΑΒΑΣΕ ΜΠ[i]
ΜΕΧΡΙΣ_ΟΤΟΥ ΜΠ[i] >= 0

συνολο <- συνολο + ΜΠ[i]

ΑΝ i <= 15 ΤΟΤΕ
συνολο1 <- συνολο1 + ΜΠ[i]
ΑΛΛΙΩΣ
συνολο2 <- συνολο2 + ΜΠ[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

μεσος_ορος <- συνολο / 30

ΓΡΑΨΕ 'Συνολική ποσότητα μπουκαλιών που εμφιαλώθηκαν τον Ιούνιο: ', συνολο
ΓΡΑΨΕ 'Μέση ημερήσια ποσότητα εμφιάλωσης: ', μεσος_ορος

ΑΝ συνολο1 > συνολο2 ΤΟΤΕ
ΓΡΑΨΕ 'Περισσότερα μπουκάλια εμφιαλώθηκαν στο 1ο δεκαπενθήμερο.'
ΑΛΛΙΩΣ_ΑΝ συνολο2 > συνολο1 ΤΟΤΕ
ΓΡΑΨΕ 'Περισσότερα μπουκάλια εμφιαλώθηκαν στο 2ο δεκαπενθήμερο.'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Και στα δύο δεκαπενθήμερα εμφιαλώθηκαν ίδια ποσότητα μπουκαλιών.'
ΤΕΛΟΣ_ΑΝ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

Άσκηση 10

ΠΡΟΓΡΑΜΜΑ ΠαραγωγηΑυγων
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α[31], i, συνολο
ΠΡΑΓΜΑΤΙΚΕΣ: μεσος
ΑΡΧΗ
συνολο <- 0

ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 31
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε την παραγωγή αυγών για την ημέρα ', i, ': '
ΔΙΑΒΑΣΕ Α[i]
ΜΕΧΡΙΣ_ΟΤΟΥ Α[i] >= 0

συνολο <- συνολο + Α[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

μεσος <- συνολο / 31

ΓΡΑΨΕ 'Μέση ημερήσια παραγωγή αυγών: ', μεσος

ΓΡΑΨΕ 'Μέρες με παραγωγή μεγαλύτερη από τη μέση:'
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 31
ΑΝ Α[i] > μεσος ΤΟΤΕ
ΓΡΑΨΕ 'Μέρα ', i, ' με παραγωγή: ', Α[i]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ