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