Άσκηση: συγγραφή διαδικασίας

Γράψτε διαδικασία που δέχεται ως παράμετρο έναν ακέραιο
πίνακα Α[12, 34] και υπολογίζει:
* το μέσο όρο των τιμών όλου του πίνακα,
* το πλήθος των στοιχείων που είναι μεγαλύτερα από το 50,
* τη μικρότερη τιμή του πίνακα.

Λύση
 
      ΔΙΑΔΙΚΑΣΙΑ ΔΔ(Α, ΜΟ, ΠΛΗΘ, ΜΙΚ)
      ΜΕΤΑΒΛΗΤΕΣ
            ΑΚΕΡΑΙΕΣ: Α[12, 34], Κ, Λ, Σ, ΠΛΗΘ, ΜΙΚ
            ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ
      ΑΡΧΗ
            Σ <-- 0
            ΠΛΗΘ <-- 0
            ΜΙΚ <-- Α[1, 1]
            ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12
                 ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 34
                        Σ <-- Σ+Α[Κ, Λ]
                        ΑΝ Α[Κ, Λ] > 50 ΤΟΤΕ
                             ΠΛΗΘ <-- ΠΛΗΘ+1
                        ΤΕΛΟΣ_ΑΝ
                        ΑΝ Α[Κ, Λ] < ΜΙΚ ΤΟΤΕ
                             ΜΙΚ <-- Α[Κ, Λ]
                        ΤΕΛΟΣ_ΑΝ
                 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
            ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
      ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ