ΠΡΟΓΡΑΜΜΑ θ4
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: max, i, πλmax, θεση, j, πλ
  ΧΑΡΑΚΤΗΡΕΣ: ΚΟΜ[10], όνομα, Χ, ΨΗΦ[15, 10] 
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΚΟΜ[i] <- '0'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ Χ
      ΚΑΛΕΣΕ Αναζήτηση(ΚΟΜ, Χ, θεση) 
    ΜΕΧΡΙΣ_ΟΤΟΥ θεση = 0
    ΚΟΜ[i] <- Χ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 10
      ΨΗΦ[i, j] <- '0'
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15

    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ Χ
      ΚΑΛΕΣΕ Αναζήτηση(ΚΟΜ, Χ, θεση) 
    ΜΕΧΡΙΣ_ΟΤΟΥ θεση <> 0
    ΨΗΦ[i, θεση] <- '+'
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 10
    πλ <- 0
    ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 15
      ΑΝ ΨΗΦ[i, j] = '+' ΤΟΤΕ
        πλ <- πλ + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ ΚΟΜ[j],πλ/15*100
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ




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

ΔΙΑΔΙΚΑΣΙΑ Αναζήτηση(Α, Χ, θεση) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, θεση
  ΧΑΡΑΚΤΗΡΕΣ: Α[10], Χ
  ΛΟΓΙΚΕΣ: flag
ΑΡΧΗ
  θεση <- 0
  flag <- ΨΕΥΔΗΣ
  i <- 1
  ΟΣΟ i <= 10 ΚΑΙ flag = ΨΕΥΔΗΣ ΕΠΑΝΑΛΑΒΕ
    ΑΝ Χ = Α[i] ΤΟΤΕ
      flag <- ΑΛΗΘΗΣ
      θεση <- i
    ΑΛΛΙΩΣ
      i <- i + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ