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

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

Λύση

     ΣΥΝΑΡΤΗΣΗ Πόσα(Β) : ΑΚΕΡΑΙΑ
     ΜΕΤΑΒΛΗΤΕΣ
          ΑΚΕΡΑΙΕΣ : Κ, Λ, Φ
          ΠΡΑΓΜΑΤΙΚΕΣ: Β[12, 31]
     ΑΡΧΗ
          Φ <-- 0
          ΓΙΑ Κ ΑΠΟ 1 ΜΕΧΡΙ 12
               ΓΙΑ Λ ΑΠΟ 1 ΜΕΧΡΙ 31
                    ΑΝ Α_Μ(Β[Κ, Λ]) = Β[Κ, Λ] ΤΟΤΕ
                          Φ <-- Φ+1
                    ΤΕΛΟΣ_ΑΝ
               ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
          ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
          Πόσα <-- Φ
     ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ