Άσκηση : μονοδιάστατοι πίνακες

Θέλετε να προμηθευτείτε μια εξάδα εμφιαλωμένων νερών
(ίδιας χωρητικότητας το καθένα) και διαπιστώνεται ότι
στο σούπερ μάρκετ της γειτονιάς σας εμπορεύεται 13
διαφορετικές μάρκες. Γράψτε πρόγραμμα το οποίο:
α) διαβάζει τις μάρκες των νερών και τις καταχωρεί
    στον αλφαριθμητικό πίνακα Μ[13],
β) διαβάζει τις τιμές πώλησης κάθε εξάδας και τις
    καταχωρεί στον πραγματικό πίνακα Τ[13] (θεωρείστε
    ότι οι τιμές αυτές είναι διαφορετικές μεταξύ τους),
γ) υπολογίζει και εμφανίζει:
    * τη μάρκα της εξάδας που είναι πιο συμφέρουσα
       για αγορά,
    * το μέσο όρο τιμής πώλησης κάθε μπουκαλιού,

Λύση

      ΠΡΟΓΡΑΜΜΑ ΝΕΡΑ
      ΜΕΤΑΒΛΗΤΕΣ
            ΑΚΕΡΑΙΕΣ: κ, ΠΙΟ
            ΧΑΡΑΚΤΗΡΕΣ: Μ[13]
            ΠΡΑΓΜΑΤΙΚΕΣ: Τ[13], ΜΙΚ, Σ, ΜΟ
      ΑΡΧΗ
            ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 13
                  ΔΙΑΒΑΣΕ Μ[κ]
                  ΔΙΑΒΑΣΕ Τ[κ]
            ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
            ΜΙΚ <-- Τ[1]
            ΠΙΟ <-- 1
            ΓΙΑ κ ΑΠΟ 2 ΜΕΧΡΙ 13

                  ΑΝ Τ[κ] < ΜΙΚ ΤΟΤΕ

                        ΜΙΚ <-- Τ[κ]

                        ΠΙΟ <-- κ

                  ΤΕΛΟΣ_ΑΝ

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

            ΓΡΑΨΕ Μ[ΠΙΟ]

            Σ <-- 0

            ΓΙΑ κ ΑΠΟ 1 ΜΕΧΡΙ 13

                  Σ <-- Σ+Τ[κ]/6

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

            ΜΟ <-- Σ/13

            ΓΡΑΨΕ ΜΟ

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