ΠΡΟΓΡΑΜΜΑ ΑΣΚΗΣΗ_4_6_18β_simple
ΣΤΑΘΕΡΕΣ
  Ν = 8
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, k, Μ[Ν], temp1, πλ, πλ1, πλ560, σ
  ΠΡΑΓΜΑΤΙΚΕΣ: μο
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[Ν], Φ[Ν], temp2
ΑΡΧΗ
  σ <- 0
  πλ <- 0
  πλ560 <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΔΙΑΒΑΣΕ ΟΝ[i],Φ[i],Μ[i]
    ΑΝ Μ[i] > 560 ΤΟΤΕ
      πλ560 <- πλ560 + 1
    ΤΕΛΟΣ_ΑΝ
    ΑΝ Φ[i] = "Α" ΤΟΤΕ
      σ <- σ + Μ[i] 
      πλ <- πλ + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ πλ560, " ΥΠΆΛΛΗΛΟΙ ΕΧΟΥΝ ΜΙΣΘΟ ΜΕΓΑΛΥΤΕΡΟ ΤΩΝ 560 €"
  μο <- σ/πλ
  ΓΡΑΨΕ "Ο ΜΕΣΟΣ ΟΡΟΣ ΤΟΥ ΜΙΣΘΟΥ ΤΩΝ ΑΝΔΡΩΝ ΕΙΝΑΙ ", μο, " €"
  πλ1 <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
    ΑΝ Φ[i] = "Α" ΚΑΙ Μ[i] > μο ΤΟΤΕ
      πλ1 <- πλ1 + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "% ΤΩΝ ΑΝΔΡΩΝ ΜΕ ΜΙΣΘΟ ΑΝΩ ΤΟΥ ΑΝΔΡΙΚΟΥ ΜΕΣΟΥ ΟΡΟΥ : ", (πλ1/πλ)*100, " %"
  ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ Ν
    ΓΙΑ j ΑΠΟ Ν ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
      ΑΝ Μ[j - 1] < Μ[j] ΤΟΤΕ
        temp1 <- Μ[j - 1] 
        Μ[j - 1] <- Μ[j] 
        Μ[j] <- temp1
        temp2 <- ΟΝ[j - 1] 
        ΟΝ[j - 1] <- ΟΝ[j] 
        ΟΝ[j] <- temp2
        temp2 <- Φ[j - 1] 
        Φ[j - 1] <- Φ[j] 
        Φ[j] <- temp2
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "ΟΙ 3 ΠΙΟ ΚΑΛΟΠΛΗΡΩΜΈΝΕΣ ΓΥΝΑΙΚΕΣ ΥΠΑΛΛΗΛΟΙ ΕΙΝΑΙ :"
  i <- 1
  k <- 0
  ΟΣΟ i <= Ν ΚΑΙ k < 3 ΕΠΑΝΑΛΑΒΕ
    ΑΝ Φ[i] = "Γ" ΤΟΤΕ
      k <- k + 1
      ΓΡΑΨΕ ΟΝ[i], ",  ΜΕ ΜΙΣΘΟ  ", Μ[i], " €"
    ΤΕΛΟΣ_ΑΝ
    i <- i + 1
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ