ΠΡΟΓΡΑΜΜΑ ΓΕΛ2019_Θ4
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, ΒΑΘ[40, 6], κωδικός_μαθητή, απάντηση, βαθμός, ΣΒ[40], temp1
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[40], επ, temp2
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 40
    ΔΙΑΒΑΣΕ ΟΝ[i] 
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6
      ΒΑΘ[i, j] <- 0
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
    ΔΙΑΒΑΣΕ κωδικός_μαθητή, απάντηση, βαθμός
    ΑΝ βαθμός > ΒΑΘ[κωδικός_μαθητή, απάντηση] ΤΟΤΕ
      ΒΑΘ[κωδικός_μαθητή, απάντηση] <- βαθμός
    ΤΕΛΟΣ_ΑΝ
    ΓΡΑΨΕ ' Υπάρχει νέα λύση προβλήματος; ΝΑΙ / ΟΧΙ'
    ΔΙΑΒΑΣΕ επ
  ΜΕΧΡΙΣ_ΟΤΟΥ επ = 'ΟΧΙ'
  ΚΑΛΕΣΕ ΥΣΒ(ΒΑΘ, ΣΒ) 
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 40
    ΓΙΑ j ΑΠΟ 40 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
      ΑΝ ΣΒ[j-1] < ΣΒ[j] ΤΟΤΕ
        temp1 <- ΣΒ[j]
        ΣΒ[j] <- ΣΒ[j - 1] 
        ΣΒ[j - 1] <- temp1
        temp2 <- ΟΝ[j]
        ΟΝ[j] <- ΟΝ[j - 1] 
        ΟΝ[j - 1] <- temp2
      ΑΛΛΙΩΣ_ΑΝ ΣΒ[j-1] = ΣΒ[j] ΤΟΤΕ
        ΑΝ ΟΝ[j-1] > ΟΝ[j] ΤΟΤΕ
          temp2 <- ΟΝ[j]
          ΟΝ[j] <- ΟΝ[j - 1] 
          ΟΝ[j - 1] <- temp2
        ΤΕΛΟΣ_ΑΝ
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 40
    ΓΡΑΨΕ ΟΝ[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΔΙΑΔΙΚΑΣΙΑ ΥΣΒ(A, B) 
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, A[40, 6], B[40] 
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 40
    B[i] <- 0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 6
      B[i] <- B[i] + A[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ