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

Γράψτε συνάρτηση που δέχεται ως παράμετρο τον
ακέραιο πίνακα Α[12, 27] και υπολογίζει το αποτέλεσμα
της παράστασης   Χ+2*Υ, όπου
     Χ : το γινόμενο των μέσων όρων ανά στήλη
     Υ : το άθροισμα των ελαχίστων ανά γραμμή

Λύση

     ΣΥΝΑΡΤΗΣΗ ΥΠΟΛ(Α) : ΠΡΑΓΜΑΤΙΚΗ
     ΜΕΤΑΒΛΗΤΕΣ
           ΑΚΕΡΑΙΕΣ: Α[12, 27], κ, λ, Μικ, Αθρ, Υ
           ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ, Χ
     ΑΡΧΗ
           Χ <-- 1
           ΓΙΑ λ ΑΠΟ 1 ΜΕΧΡΙ 27
                 Αθρ <-- 0
                 ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 12
                       Αθρ <-- Αθρ+Α[κ, λ]
                 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
                 ΜΟ <-- Αθρ/12
                 Χ <-- Χ*ΜΟ
           ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
           Υ <-- 0
           ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 12

                 Μικ <-- Α[κ, 1]

                 ΓΙΑ λ ΑΠΟ 2 ΜΕΧΡΙ 27

                       ΑΝ Α[κ, λ] < Μικ ΤΟΤΕ

                             Μικ <-- Α[κ, λ]

                       ΤΕΛΟΣ_ΑΝ

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

                 Υ <-- Υ+Μικ

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

           ΥΠΟΛ <-- Χ+2*Υ

     ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ