! ===============================================================================================
! ΗΜΕΡΗΣΙΟ - ΙΟΥΛΙΟΣ 2002 - ΘΕΜΑ 4
! ===============================================================================================
! Μια αλυσίδα ξενοδοχείων έχει 5 ξενοδοχεία. Σε ένα μονοδιάστατο πίνακα ΞΕΝΟΔΟΧΕΙΑ[5]
! καταχωρούνται τα ονόματα των ξενοδοχείων. Σε ένα άλλο δισδιάστατο πίνακα ΕΙΣΠΡΑΞΕΙΣ[5,12]
! καταχωρούνται οι εισπράξεις κάθε ξενοδοχείου για κάθε μήνα του έτους 2001, έτσι ώστε στην i
! γραμμή καταχωρούνται οι εισπράξεις του i ξενοδοχείου.
! Να αναπτύξετε αλγόριθμο, ο οποίος :
!   α. διαβάζει τα στοιχεία των δύο πινάκων.
!   β. εκτυπώνει το όνομα κάθε ξενοδοχείου και τις ετήσιες εισπράξεις του για το έτος 2001.
!   γ. εκτυπώνει το όνομα του ξενοδοχείου με τις μεγαλύτερες εισπράξεις για το έτος 2001.
! ===============================================================================================

ΠΡΟΓΡΑΜΜΑ HM_2002_07_4
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i,j
  ΠΡΑΓΜΑΤΙΚΕΣ: ΕΙΣΠΡΑΞΕΙΣ[5,12],s[12],max
  ΧΑΡΑΚΤΗΡΕΣ: ΞΕΝΟΔΟΧΕΙΑ[5],name
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ 'Δώσε το όνομα του ξενοδοχείου',i
    ΔΙΑΒΑΣΕ ΞΕΝΟΔΟΧΕΙΑ[i]
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
      ΓΡΑΨΕ 'Δώσε την είσπραξη για τον',j,'ο μήνα.'
      ΔΙΑΒΑΣΕ ΕΙΣΠΡΑΞΕΙΣ[i,j]                            
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    s[i] <-- 0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
      s[i] <-- s[i] + ΕΙΣΠΡΑΞΕΙΣ[i,j]
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ ΞΕΝΟΔΟΧΕΙΑ[i],s[i]
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  max <-- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 5
    ΑΝ s[i] > max ΤΟΤΕ
      max <-- s[i]
      name <-- ΞΕΝΟΔΟΧΕΙΑ[i]
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Μεγαλύτερες συνολικές εισπράξεις για το 2001 είχε το ξενοδοχείο',name
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ