ΠΡΟΓΡΑΜΜΑ ΑΣΚΗΣΗ_4_6_1
ΣΤΑΘΕΡΕΣ
  πλήθος = 5
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, ΗΛ[πλήθος], σ, max, πλ1, πλ2
  ΧΑΡΑΚΤΗΡΕΣ: ΟΝ[πλήθος] 
  ΠΡΑΓΜΑΤΙΚΕΣ: μο
ΑΡΧΗ
! ΓΕΜΙΣΜΑ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ πλήθος
    ΔΙΑΒΑΣΕ ΟΝ[i] 
    ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
      ΔΙΑΒΑΣΕ ΗΛ[i] 
    ΜΕΧΡΙΣ_ΟΤΟΥ ΗΛ[i] > 0
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! 1. ΜΕΣΟΣ ΟΡΟΣ
  σ <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ πλήθος
    σ <- σ + ΗΛ[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  μο <- σ/πλήθος
  ΓΡΑΨΕ μο
! 2.a ΕΥΡΕΣΗ ΜΕΓΙΣΤΟΥ
  max <- ΗΛ[1] 
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ πλήθος
    ΑΝ ΗΛ[i] > max ΤΟΤΕ
      max <- ΗΛ[i] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ max
! 2.b Πλήθος μεγίστων, εκτύπωση
  πλ1 <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ πλήθος
    ΑΝ ΗΛ[i] = max ΤΟΤΕ
      πλ1 <- πλ1 + 1
      ΓΡΑΨΕ ΟΝ[i] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ πλ1
! 3. Πλήθος > 50, εκτύπωση
  πλ2 <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ πλήθος
    ΑΝ ΗΛ[i] > 50 ΤΟΤΕ
      πλ2 <- πλ2 + 1
      ΓΡΑΨΕ ΟΝ[i] 
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ πλ2
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ