ΠΡΟΓΡΑΜΜΑ οεφεδ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ι, πολη_υπαρχει, ξ, μαχ_θεση
  ΠΡΑΓΜΑΤΙΚΕΣ: ΕΙΣ[5, 12], ΣΕ[5], ΣΕΚ[5], τεμπ1, τεμπ2, μαχ
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[5], τεμπ3

ΑΡΧΗ
  ΔΙΑΒΑΣΕ ΟΝ[1] 
  ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 5
    ΔΙΑΒΑΣΕ ΟΝ[ι] 
    πολη_υπαρχει <- αναζητηση(ΟΝ, ι - 1, ΟΝ[ι]) 
    ΟΣΟ πολη_υπαρχει <> 0 ΕΠΑΝΑΛΑΒΕ
      ΓΡΑΨΕ "η πολη", ΟΝ[ι], " υπαρχει ηδη"
      ΔΙΑΒΑΣΕ ΟΝ[ι] 
      πολη_υπαρχει <- αναζητηση(ΟΝ, ι - 1, ΟΝ[ι]) 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    !ως εδω διαβασα τις πολεις και εξασφαλισα οτι ειναι διαφορετικες μεταξυ τους

  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΙΑ ξ ΑΠΟ 1 ΜΕΧΡΙ 12
      ΑΝ ξ <> 2 ΤΟΤΕ
        ΔΙΑΒΑΣΕ ΕΙΣ[ι, ξ] 
      ΑΛΛΙΩΣ
        ΕΙΣ[ι, ξ] <- 0
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 5
    ΣΕ[ι] <- ΑΘΡ(ι, ΕΙΣ, 1) 
    ΣΕΚ[ι] <- ΑΘΡ(ι, ΕΙΣ, 2) 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  !βρισκω τις ετησιες και καλοκαιρινες εισπραξεις καθε ξενοδοχειου


  ΓΙΑ ι ΑΠΟ 2 ΜΕΧΡΙ 5
    ΓΙΑ ξ ΑΠΟ 5 ΜΕΧΡΙ 2 ΜΕ ΒΗΜΑ -1
      ΑΝ ΣΕ[ξ] > ΣΕ[ξ - 1] ΤΟΤΕ

        τεμπ1 <- ΣΕ[ξ] 
        ΣΕ[ξ] <- ΣΕ[ξ - 1] 
        ΣΕ[ξ - 1] <- τεμπ1


        τεμπ2 <- ΣΕΚ[ξ] 
        ΣΕΚ[ξ] <- ΣΕΚ[ξ - 1] 
        ΣΕΚ[ξ - 1] <- τεμπ2

        τεμπ3 <- ΟΝ[ξ] 
        ΟΝ[ξ] <- ΟΝ[ξ - 1] 
        ΟΝ[ξ - 1] <- τεμπ3
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  !ταξινομησα κατα φθινουσα σειρα τις ετησιες εισπραξεις αλλαζοντας
  !επισης και τον πινακα ονοματων και αυτον των καλοκαιρινων εισπραξεων
  !καθε ξενοδοχειου

  μαχ <- ΣΕΚ[1] 
  μαχ_θεση <- 1
  ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 5
    ΑΝ μαχ < ΣΕΚ[ι] ΤΟΤΕ
      μαχ <- ΣΕΚ[ι] 
      μαχ_θεση <- ι
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  !το μαχ ειναι οι μεγιστες καλοκαιρινες εισπραξεις και το μαχ_θεση
  !η θεση που βρισκεται το ονομα της πολης με τις μαχ καλοκαιρινες
  !εισπραξεις στον πινακα ΟΝ

  ΑΝ ΣΕ[1] = ΣΕ[2] ΤΟΤΕ
    ΓΡΑΨΕ "περισσοτερα απο 1 ξενοδοχειο μεγιστες εισπραξεις ισες με ", ΣΕ[1] 
    ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 5
      ΑΝ ΣΕ[ι] = ΣΕ[1] ΤΟΤΕ
        ΓΡΑΨΕ ΟΝ[ι] 
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

    ΓΡΑΨΕ "το ξενοδοχειο με μαχ καλοκαιρινες εισπραξεις ειναι στην πολη ", ΟΝ[μαχ_θεση] 
    ΓΡΑΨΕ "και εχει εισπραξεις ", μαχ, "ΕΥΡΩ"
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ "ΜΕΓΙΣΤΕΣ ΕΙΣΠΡΑΞΕΙΣ ΤΟ ΞΕΝΟΔΟΧΕΙΟ ", ΟΝ[1], " ισες με ", ΣΕ[1], "ευρω"
  ΤΕΛΟΣ_ΑΝ



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












ΣΥΝΑΡΤΗΣΗ αναζητηση(ΟΝ, Ν, key): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: Ν, ι, θεση

  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[5], key
  ΛΟΓΙΚΕΣ: βρεθηκε
ΑΡΧΗ
  ι <- 1
  θεση <- 0
  βρεθηκε <- ΨΕΥΔΗΣ
  ΟΣΟ ι <= Ν ΚΑΙ βρεθηκε = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
    ΑΝ ΟΝ[ι] = key ΤΟΤΕ
      βρεθηκε <- ΑΛΗΘΗΣ
      θεση <- ι
    ΤΕΛΟΣ_ΑΝ
    ι <- ι + 1
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  αναζητηση <- θεση


ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ 










ΣΥΝΑΡΤΗΣΗ ΑΘΡ (ακ, ΕΙΣ, Ν): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: ι, Ν, ακ
  ΠΡΑΓΜΑΤΙΚΕΣ: σαμ, ΕΙΣ[5, 12] 



ΑΡΧΗ

  σαμ <- 0

  ΑΝ Ν = 1 ΤΟΤΕ
    ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ 12
      σαμ <- σαμ + ΕΙΣ[ακ, ι] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΛΛΙΩΣ
    ΓΙΑ ι ΑΠΟ 6 ΜΕΧΡΙ 8
      σαμ <- σαμ + ΕΙΣ[ακ, ι] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΑΝ
  ΑΘΡ <- σαμ


ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ