ΠΡΟΓΡΑΜΜΑ ΕΓΕΛ2017Θ4
!Δ1
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, MOmax, B[10, 10], Μεγ[10], Μικ[10]
  ΧΑΡΑΚΤΗΡΕΣ: O[10], ονομα_MOmax, ονομ_Dmin
  ΠΡΑΓΜΑΤΙΚΕΣ: D[10], ΜΟ[10], MO_max, min, Dmin
ΑΡΧΗ
!Δ2α
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΔΙΑΒΑΣΕ O[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Δ2β
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΔΙΑΒΑΣΕ B[i, i]
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 10
      ΑΝ (i <> j) ΤΟΤΕ
        ΓΡΑΨΕ O[j]
        ΔΙΑΒΑΣΕ B[i, j]
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
!Δ3
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    Μεγ[i] <- B[i, 1]
    Μικ[i] <- B[i, 1]
    ΓΙΑ j ΑΠΟ 2 ΜΕΧΡΙ 10
      ΑΝ B[i, j] > Μεγ[i] ΤΟΤΕ
        Μεγ[i] <- B[i, j] 
      ΤΕΛΟΣ_ΑΝ
      ΑΝ B[i, j] < Μικ[i] ΤΟΤΕ
        Μικ[i] <- B[i, j]
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΜΟ[i] <- 0
    ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 10
      ΜΟ[i] <- ΜΟ[i] + B[i, j] 
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΜΟ[i] <- (ΜΟ[i] - Μεγ[i] - Μικ[i])/8
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  MO_max <- ΜΟ[1]
  ονομα_MOmax <- O[1] 
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10
    ΑΝ ΜΟ[i] > MO_max ΤΟΤΕ
      MO_max <- ΜΟ[i] 
      ονομα_MOmax <- O[i] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ MO_max, ονομα_MOmax
!Δ4
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    D[i] <- Α_Τ (ΜΟ[i] - B[i, i])
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  Dmin <- D[1] 
  ονομ_Dmin <- O[1] 
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10
    ΑΝ D[i] < Dmin ΤΟΤΕ
      Dmin <- D[i] 
      ονομ_Dmin <- O[i] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ ονομ_Dmin, Dmin
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ