ΠΡΟΓΡΑΜΜΑ ΓΕΛ_2018_Θ4β_ΠΟΤΑΜΟΙ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ποταμοί, i, j, max, s, ΕΠ[20, 12]
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ[20], temp1
  ΧΑΡΑΚΤΗΡΕΣ: Π[20], temp2
  ΛΟΓΙΚΕΣ: υπάρχει
ΑΡΧΗ

  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ Ποταμοί
  ΜΕΧΡΙΣ_ΟΤΟΥ Ποταμοί <= 20

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ποταμοί
    ΔΙΑΒΑΣΕ Π[i] 
    ΓΡΑΨΕ Π[i] 
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
      ΚΑΛΕΣΕ Υ_Ε(max) 
      ΕΠ[i, j] <- max
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ποταμοί
    s <- 0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
      s <- s + ΕΠ[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΜΟ[i] <- s/ 12
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ Ποταμοί
    ΓΙΑ j ΑΠΟ Ποταμοί ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
      ΑΝ Π[j-1] > Π[j] ΤΟΤΕ
        temp1 <- ΜΟ[j] 
        ΜΟ[j] <- ΜΟ[j - 1] 
        ΜΟ[j - 1] <- temp1

        temp2 <- Π[j] 
        Π[j] <- Π[j - 1] 
        Π[j - 1] <- temp2
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  υπάρχει <- ΨΕΥΔΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ποταμοί
    ΑΝ ΜΟ[i] > 7 ΤΟΤΕ
      ΓΡΑΨΕ Π[i] 
      υπάρχει <- ΑΛΗΘΗΣ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΑΝ υπάρχει = ΨΕΥΔΗΣ ΤΟΤΕ
    ΓΡΑΨΕ 'ΔΕΝ ΥΠΑΡΧΕΙ ΠΟΤΑΜΟΣ'
  ΤΕΛΟΣ_ΑΝ

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

ΔΙΑΔΙΚΑΣΙΑ Υ_Ε(max) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: max, τιμή
ΑΡΧΗ
  max <- -1
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ τιμή
    ΑΝ τιμή > max ΤΟΤΕ
      max <- τιμή
    ΤΕΛΟΣ_ΑΝ
  ΜΕΧΡΙΣ_ΟΤΟΥ τιμή = 0
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ