ΠΡΟΓΡΑΜΜΑ Μονοδιάστατος_πίνακας
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, sum, sum1, sum2, sumα, sumμ, Κ, μ, GIN, Α[100] 
  ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ
  ΛΟΓΙΚΕΣ: flag
ΑΡΧΗ
  ΓΡΑΨΕ "Δώσε 100 ακέραιους αριθμούς:"
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
   !ΔΙΑΒΑΣΕ Α[i]
    Α[i] <- i
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
    ΓΡΑΨΕ Α[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 100 ΜΕΧΡΙ 1 ΜΕ_ΒΗΜΑ -1
    ΓΡΑΨΕ Α[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  sum <- 0
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
    sum <- sum + Α[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ "Άθροισμα στοιχείων:", sum
  ΜΟ <- sum/100
  ΓΡΑΨΕ "Μέσος Όρος στοιχείων =", ΜΟ



ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Μονοδιάστατος_πίνακας