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

Γράψτε διαδικασία που δέχεται ως παράμετρο έναν ακέραιο
πίνακα Β[12, 21] και υπολογίζει πόσες τιμές είναι αρνητικές,
σε κάθε στήλη ξεχωριστά.

Λύση

       ΔΙΑΔΙΚΑΣΙΑ Αρνητικές(Β, Αρν)
       ΜΕΤΑΒΛΗΤΕΣ
              ΑΚΕΡΑΙΕΣ: Β[12, 21], Κ, Λ, Φ, Αρν[21]
       ΑΡΧΗ
              ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 21

                   Φ <-- 0

                   ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12

                         ΑΝ Β[Κ, Λ] < 0 ΤΟΤΕ

                                Φ <-- Φ+1

                         ΤΕΛΟΣ_ΑΝ

                   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

                   Αρν[Λ] <-- Φ

              ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ 
       ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ