Άσκηση : συγγραφή συνάρτησης

Γράψτε συνάρτηση που δέχεται ως παράμετρο τον
ακέραιο πίνακα Α[76, 76] και ελέγχει αν όλα τα
στοιχεία της 2ης κυρίας διαγωνίου είναι ταξινομημένα
κατά αύξουσα σειρά ή όχι.

Λύση

       ΣΥΝΑΡΤΗΣΗ ΔΙΑΓ(Α) : ΛΟΓΙΚΗ
       ΜΕΤΑΒΛΗΤΕΣ
             ΑΚΕΡΑΙΕΣ: Α[76, 76], Κ
             ΛΟΓΙΚΕΣ: ΕΛ
       ΑΡΧΗ
             ΕΛ <-- ΑΛΗΘΗΣ
             Κ <-- 1
             ΟΣΟ (Κ <= 75) ΚΑΙ (ΕΛ = ΑΛΗΘΗΣ) ΕΠΑΝΑΛΑΒΕ
                   ΑΝ Α[Κ, 77-Κ] > Α[Κ+1, 76-Κ] ΤΟΤΕ
                         ΕΛ <-- ΨΕΥΔΗΣ
                   ΑΛΛΙΩΣ
                         Κ <-- Κ+1
                   ΤΕΛΟΣ_ΑΝ
             ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
             ΔΙΑΓ <-- ΕΛ
       ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ