Άσκηση : επεξεργασία στοιχείων των διαγωνίων

Γράψτε διαδικασία η οποία γεμίζει τα στοιχεία των δύο
κυρίων διαγωνίων του ακέραιου πίνακα Α[20, 20]
με μηδενικά.


Λύση

    ΔΙΑΔΙΚΑΣΙΑ ΓεμΠιν(Α)
    ΜΕΤΑΒΛΗΤΕΣ
          ΑΚΕΡΑΙΕΣ: Α[20, 20], Κ
    ΑΡΧΗ
           ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 20
                 Α[Κ, Κ] <-- 0
                 Α[Κ, 21-Κ] <-- 0
           ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ