Άσκηση : δυσδιάστατος πίνακας (επεξεργασία δοσμένης γραμμής και στήλης)

Γράψτε πρόγραμμα το οποίο:
α) διαβάζει 260 ακέραιες τιμές και τις καταχωρεί στήλη-στήλη
    στον δισδιάστατο πίνακα Α[20, 13],
β) υπολογίζει και εμφανίζει:
     * πόσα στοιχεία της 6ης στήλης είναι μηδενικά,
     * πόσα στοιχεία της 1ης γραμμής είναι θετικά.

Λύση

       ΠΡΟΓΡΑΜΜΑ ΠΙΝ
       ΜΕΤΑΒΛΗΤΕΣ
             ΑΚΕΡΑΙΕΣ: Α[20, 13], Κ, Λ, ΜΗΔ, ΘΕΤ
       ΑΡΧΗ
             ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 13
                   ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 20
                         ΔΙΑΒΑΣΕ Α[Κ, Λ]
                   ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
             ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
             ΜΗΔ <-- 0
             ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 20
                   ΑΝ Α[Κ, 6] = 0 ΤΟΤΕ
                         ΜΗΔ <-- ΜΗΔ+1
                   ΤΕΛΟΣ_ΑΝ
             ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
             ΓΡΑΨΕ ΜΗΔ
             ΘΕΤ <-- 0
             ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 13

                   ΑΝ Α[1, Λ] > 0 ΤΟΤΕ

                         ΘΕΤ <-- ΘΕΤ+1

                   ΤΕΛΟΣ_ΑΝ

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

             ΓΡΑΨΕ ΘΕΤ

       ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ