ΠΡΟΓΡΑΜΜΑ Δ_2015
ΜΕΤΑΒΛΗΤΕΣ
  ΧΑΡΑΚΤΗΡΕΣ: ΤΙΤΛΟΣ[5] 
  ΑΚΕΡΑΙΕΣ: ΒΑΘΜΟΣ[5, 7], Ι, J, Σ, ΠΡΟΚΡΙΝΟΝΤΑΙ, ΔΩΣΑΝ_ΚΑΤΩ_ΑΠΟ_5, ΠΛΗΘΟΣ_ΕΜΦ_ΜΑΞ, ΠΛΗΘΟΣ_ΚΡΙΤΩΝ, ΜΑΞ
  ΛΟΓΙΚΕΣ: ΔΩΣΑΝ_ΟΛΟΙ_5

ΑΡΧΗ
  ΠΡΟΚΡΙΝΟΝΤΑΙ <- 0
  ΠΛΗΘΟΣ_ΚΡΙΤΩΝ <- 0
  ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 5
    ΓΡΑΨΕ 'ΔΩΣΕ ΤΙΤΛΟ ΤΟΥ ', Ι, 'ου ΤΡΑΓΟΥΔΙΟΥ'
    ΔΙΑΒΑΣΕ ΤΙΤΛΟΣ[Ι] 
    Σ <- 0
                                                         !ΔΩΣΑΝ_ΟΛΟΙ_5 <- ΑΛΗΘΗΣ
    ΔΩΣΑΝ_ΚΑΤΩ_ΑΠΟ_5 <- 0
    ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 7
      ΓΡΑΨΕ 'ΔΩΣΕ ', J, ' ΒΑΘΜΟ ', Ι, 'ου ΤΡΑΓΟΥΔΙΟΥ'
      ΔΙΑΒΑΣΕ ΒΑΘΜΟΣ[Ι, J] 
      Σ <- Σ + ΒΑΘΜΟΣ[Ι, J] 
      ΑΝ ΒΑΘΜΟΣ[Ι, J] < 5 ΤΟΤΕ
                                                         !ΔΩΣΑΝ_ΟΛΟΙ_5 <- ΨΕΥΔΗΣ
        ΔΩΣΑΝ_ΚΑΤΩ_ΑΠΟ_5 <- ΔΩΣΑΝ_ΚΑΤΩ_ΑΠΟ_5 + 1

      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'ΤΟ ', Ι, 'ο ΤΡΑΓΟΥΔΙ ΠΗΡΕ ΣΥΝΟΛΙΚΑ: ', Σ
    ΑΝ Σ > 50 ΚΑΙ ΔΩΣΑΝ_ΚΑΤΩ_ΑΠΟ_5 = 0 ΤΟΤΕ
      ΓΡΑΨΕ 'ΤΟ ΤΡΑΓΟΥΔΙ ', ΤΙΤΛΟΣ[Ι], ' ΠΡΟΚΡΙΝΕΤΑΙ'
      ΠΡΟΚΡΙΝΟΝΤΑΙ <- ΠΡΟΚΡΙΝΟΝΤΑΙ + 1
    ΑΛΛΙΩΣ
      ΓΡΑΨΕ 'ΤΟ ΤΡΑΓΟΥΔΙ ', ΤΙΤΛΟΣ[Ι], ' ΔΕΝ ΠΡΟΚΡΙΝΕΤΑΙ'
    ΤΕΛΟΣ_ΑΝ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΑΝ ΠΡΟΚΡΙΝΟΝΤΑΙ = 0 ΤΟΤΕ
    ΓΡΑΨΕ 'ΔΕΝ ΠΡΟΚΡΙΘΗΚΕ ΚΑΝΕΝΑ ΤΡΑΓΟΥΔΙ'
  ΤΕΛΟΣ_ΑΝ

  ΓΙΑ J ΑΠΟ 1 ΜΕΧΡΙ 5                                                 ! 7 ΚΡΙΤΕΣ
    ΜΑΞ <- ΒΑΘΜΟΣ[1, J]                                  !1ΟΣ ΒΑΘΜΟΣ ΤΟΥ J ΚΡΙΤΗ
    ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ 5
      ΑΝ ΒΑΘΜΟΣ[Ι, J] > ΜΑΞ ΤΟΤΕ
        ΜΑΞ <- ΒΑΘΜΟΣ[Ι, J] 
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΠΛΗΘΟΣ_ΕΜΦ_ΜΑΞ <- 0
    ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 5
      ΑΝ ΒΑΘΜΟΣ[Ι, J] = ΜΑΞ ΤΟΤΕ
        ΠΛΗΘΟΣ_ΕΜΦ_ΜΑΞ <- ΠΛΗΘΟΣ_ΕΜΦ_ΜΑΞ + 1
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΑΝ ΠΛΗΘΟΣ_ΕΜΦ_ΜΑΞ = 1 ΤΟΤΕ
      ΠΛΗΘΟΣ_ΚΡΙΤΩΝ <- ΠΛΗΘΟΣ_ΚΡΙΤΩΝ + 1
    ΤΕΛΟΣ_ΑΝ

  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'ΚΡΙΤΕΣ ΜΕ ΜΟΝΑΔΙΚΟ ΜΕΓΙΣΤΟ: ', ΠΛΗΘΟΣ_ΚΡΙΤΩΝ
  ΔΙΑΒΑΣΕ ΜΑΞ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!ArxeioEisodou
ΛΑΛΑΛΑ
9
7
7
7
7
7
7
ΤΡΑΛΑΛΑ
6
7
7
7
7
7
7
ΤΡΑΛΑΛΑ
6
7
7
7
7
7
7
ΤΡΑΛΑΛΑ
6
7
7
7
7
7
7
ΤΡΑΛΑΛΑ
6
7
7
7
7
7
7