ΠΡΟΓΡΑΜΜΑ Νησιά_ΕΓΕΛ2018_Θ4
ΣΤΑΘΕΡΕΣ
  ν = 15
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, ΕΠ[ν], ΑΠ[ν, ν], νησί, επόμενο_νησί, Σ_απ
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[ν] 
  ΛΟΓΙΚΕΣ: επίσκεψη_σε_όλα
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ν
    ΔΙΑΒΑΣΕ ΟΝ[i] 
    ΕΠ[i] <- 0
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ν
    ΓΙΑ j ΑΠΟ i + 1 ΜΕΧΡΙ ν
      ΔΙΑΒΑΣΕ ΑΠ[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  νησί <- 1 ! Αρχή διαδρομής
  ΕΠ[1] <- 1
  Σ_απ <- 0 ! Συνολική απόσταση
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ επόμενο_νησί ! Επόμενο νησί
    ΕΠ[επόμενο_νησί] <- ΕΠ[επόμενο_νησί] + 1
    ΑΝ επόμενο_νησί > νησί ΤΟΤΕ ! Ο πίνακας είναι άνω τριγωνικός..
      Σ_απ <- Σ_απ + ΑΠ[νησί, επόμενο_νησί] 
    ΑΛΛΙΩΣ
      Σ_απ <- Σ_απ + ΑΠ[επόμενο_νησί, νησί] 
    ΤΕΛΟΣ_ΑΝ
    επίσκεψη_σε_όλα <- ΑΛΗΘΗΣ
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ν
      ΑΝ ΕΠ[i] = 0 ΤΟΤΕ
        επίσκεψη_σε_όλα <- ΨΕΥΔΗΣ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    νησί <- επόμενο_νησί
  ΜΕΧΡΙΣ_ΟΤΟΥ επίσκεψη_σε_όλα = ΑΛΗΘΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ ν
    ΓΡΑΨΕ ΟΝ[i], '  ', ΕΠ[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ Σ_απ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ