ΠΡΟΓΡΑΜΜΑ Μονοδιάστατος_πίνακας
ΜΕΤΑΒΛΗΤΕΣ
 ΑΚΕΡΑΙΕΣ: Α[100], i, j, sum, sum1, sum2
 ΑΚΕΡΑΙΕΣ: sumα, sumμ, Κ, μ, GIN
 ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ
 ΛΟΓΙΚΕΣ: flag
ΑΡΧΗ
 ΓΡΑΨΕ 'Δώσε 100 ακέραιους αριθμούς:'
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
 ΔΙΑΒΑΣΕ Α[i]
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
 ΓΡΑΨΕ Α[i]
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΓΙΑ i ΑΠΟ 100 ΜΕΧΡΙ 1 ΜΕ_ΒΗΜΑ -1
 ΓΡΑΨΕ Α[i]
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
sum <- 0
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
 sum <- sum + Α[i]
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΓΡΑΨΕ 'Άθροισμα στοιχείων:', sum
 ΜΟ <- sum/100
 ΓΡΑΨΕ 'Μέσος Όρος στοιχείων =', ΜΟ
 sumα <- 0
 sumμ <- 0
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
 ΑΝ i mod 2 = 0 ΤΟΤΕ
 sumα <- sumα + Α[i]
 ΑΛΛΙΩΣ
 sumμ <- sumμ + Α[i]
 ΤΕΛΟΣ_ΑΝ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΓΡΑΨΕ 'Άθροισμα αριθμών σε ζυγές θέσεις:', sumα
 ΓΡΑΨΕ 'Άθροισμα αριθμών σε μονές θέσεις:', sumμ
 GIN <- 1
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
 GIN <- GIN* Α[i]
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΓΡΑΨΕ 'Το γινόμενο των 10 πρώτων αριθμών :', GIN
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
 Κ <- Α[i]
 Α[i] <- Α[100 - i + 1]
 Α[100 - i + 1] <- Κ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
 ΓΡΑΨΕ Α[i]
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 sum1 <- 0
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
 sum1 <- sum1 + Α[i]
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 sum2 <- 0
 ΓΙΑ i ΑΠΟ 51 ΜΕΧΡΙ 100
 sum2 <- sum2 + Α[i]
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΑΝ sum1 = sum2 ΤΟΤΕ
 ΓΡΑΨΕ 'Ίσα αθροίσματα'
 ΤΕΛΟΣ_ΑΝ
flag <- ΨΕΥΔΗΣ
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 50
 ΑΝ Α[i] <> Α[100 - i + 1] ΤΟΤΕ
 flag <- ΑΛΗΘΗΣ
 ΤΕΛΟΣ_ΑΝ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΑΝ flag = ΨΕΥΔΗΣ ΤΟΤΕ
 ΓΡΑΨΕ 'Πίνακας συμμετρικός'
 ΤΕΛΟΣ_ΑΝ
 μ <- 0
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
 ΑΝ Α[i] < ΜΟ ΤΟΤΕ
 μ <- μ + 1
 ΤΕΛΟΣ_ΑΝ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΓΡΑΨΕ 'Πλήθος:', μ
 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 100
 ΑΝ Α[i] = 42 ΤΟΤΕ
 ΓΡΑΨΕ i
 ΤΕΛΟΣ_ΑΝ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 100
 ΓΙΑ j ΑΠΟ 100 ΜΕΧΡΙ i ΜΕ_ΒΗΜΑ -1
 ΑΝ Α[j] > Α[j - 1] ΤΟΤΕ
 Κ <- Α[j]
 Α[j] <- Α[j - 1]
 Α[j - 1] <- Κ
 ΤΕΛΟΣ_ΑΝ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 flag <- ΑΛΗΘΗΣ
 ΓΙΑ i ΑΠΟ 100 ΜΕΧΡΙ 2 ΜΕ_ΒΗΜΑ -1
 ΑΝ Α[i] > Α[i - 1] ΤΟΤΕ
 flag <- ΨΕΥΔΗΣ
 ΤΕΛΟΣ_ΑΝ
 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ' ΑΝ flag = ΑΛΗΘΗΣ ΤΟΤΕ
 ΓΡΑΨΕ 'Πίνακας ταξινομημένος κατά φθίνουσα σειρά'
 ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Μονοδιάστατος_πίνακας