ΠΡΟΓΡΑΜΜΑ ΓΕΛ2016Θ4ΠΑΛΑΙΟ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ΕΝ[10, 12], Σ[10], i, j, temp1
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[10], temp2
ΑΡΧΗ

 !Δ1β
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΔΙΑΒΑΣΕ ΟΝ[i] 
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
      ΔΙΑΒΑΣΕ ΕΝ[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

 !Δ2
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
    ΓΡΑΨΕ 'ΜΗΝΑΣ ', j, 'ος:', ΜΗΝΑΣ(ΕΝ, j) !Δ4
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

 !Δ3 Δημιουργία πίνακα συνόλων για την εύρεση των 3 πρώτων.
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    Σ[i] <- 0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 12
      Σ[i] <- Σ[i] + ΕΝ[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

 !Δ3 Εύρεση των 3 πρώτων. Φθίνουσα ταξινόμηση
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10 ! ή .. ΜΕΧΡΙ 4, μόνο για τους 3 πρώτους
    ΓΙΑ j ΑΠΟ 10 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
      ΑΝ Σ[j - 1] < Σ[j] ΤΟΤΕ
        temp1 <- Σ[j - 1] 
        Σ[j - 1] <- Σ[j] 
        Σ[j] <- temp1
        temp2 <- ΟΝ[j - 1] 
        ΟΝ[j - 1] <- ΟΝ[j] 
        ΟΝ[j] <- temp2
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΡΑΨΕ ΟΝ[1], ΟΝ[2], ΟΝ[3] 

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

!Δ4
ΣΥΝΑΡΤΗΣΗ ΜΗΝΑΣ(Α, j): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Α[10, 12], j, s, i
ΑΡΧΗ
  s <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    s <- s + Α[i, j] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΜΗΝΑΣ <- s
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ