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

Γράψτε διαδικασία που δέχεται ως παράμετρο τον
πραγματικό πίνακα Α[9, 9] και αντιγράφει τα στοιχεία:
* της 1ης κυρίας διαγωνίου στον πίνακα Β[9],
* της 2ης κυρίας διαγωνίου στον πίνακα Γ[9].

Λύση

     ΔΙΑΔΙΚΑΣΙΑ αντιγρ(Α, Β, Γ)
     ΜΕΤΑΒΛΗΤΕΣ
           ΑΚΕΡΑΙΕΣ: κ
           ΠΡΑΓΜΑΤΙΚΕΣ: Α[9, 9], Β[9], Γ[9]
     ΑΡΧΗ
           ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 9
                 Β[κ] <-- Α[κ, κ]
                 Γ[κ] <-- Α[κ, 10-κ]
           ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ

     ΤΕΛΟΣ_ΔΙΑΔΙΚΑΣΙΑΣ