ΑΣΚΗΣΗ ΜΕ ΑΝΑΖΗΤΗΣΗ

Μία αλυσίδα φροντιστηρίων ξένων γλωσσών έχει διδακτήρια σε 15 πόλεις σε όλη την 
Ελλάδα. Οι μηνιαίοι τζίροι για κάθε διδακτήριο για διάστημα ενός χρόνου (12 μήνες) 
καταγράφεται σε έναν πίνακα ΤΖ. Τα ονόματα των πόλεων στις οποίες έχει διδακτήρια η 
αλυσίδα βρίσκονται σε έναν πίνακα ΔΙΔ. Σε ένα πίνακα ΥΠΕΥΘ βρίσκονται τα ονόματα των υπεύθυνων του κάθε καταστήματος. Να γραφεί αλγόριθμος ο οποίος:
1. Γεμίζει τους πίνακες
2. Να υπολογίζει και να εμφανίζει σε ποια πόλη και σε ποιο μήνα σημειώθηκαν οι λιγότερες εισπράξεις του έτους για την αλυσίδα.
3. Αν πρέπει να πάρει bonus 8% επί του συνολικού ετήσιου τζίρου του, ο υπεύθυνος του διδακτηρίου με τις μεγαλύτερες εισπράξεις, ποιος θα είναι αυτός ο υπεύθυνος (το όνομα του) και τι ποσό πρόκειται να εισπράξει σαν bonus; (Θεωρήστε ότι είναι ένας)
4. Να διαβάζεται από το πληκτρολόγιο το όνομα ενός υπεύθυνου και να εμφανίζει αν ο υπεύθυνος αυτός υπάρχει στο δυναμικό της αλυσίδας ή όχι. Αν ναι, τότε σε ποιο διδακτήριο 

(πόλη) είναι υπεύθυνος ; Από πόσους είναι καλύτερος σε εισπράξεις;

Αλγόριθμος FOREIGN_LANGUAGES
Για i από 1 μέχρι 35
      Εμφάνισε "Δώσε το όνομα της" ,i, "πόλης"
      Διάβασε ΔΙΔ[i]
      Εμφάνισε "Δώσε το όνομα του διευθυντή του καταστήματος της" ,i, "πόλης"
      Διάβασε ΥΠΕΥΘ[i]
      Για j από 1 μέχρι 12
            Εμφάνισε "Δώσε τις εισπράξεις του" ,i, "διδακτηρίου τον" ,j, "μήνα"
            Διάβασε ΤΖ[i,j]
      Τέλος_επανάληψης
Τέλος_επανάληψης
Μin ← ΤΖ[1,1]
Μήν ← 1
Πόλη ← ΔΙΔ[1]
Για i από 1 μέχρι 35
      Για j από 1 μέχρι 12
           Αν ΤΖ[i,j]< Min τότε
               Μin ← ΤΖ[i,j]
               Μήν ← j
               Πόλη ← ΔΙΔ[i]
           Τέλος_αν
      Τέλος_επανάληψης
Τέλος_επανάληψης
Εμφάνισε "Τις λιγότερες εισπράξεις έκανε το διδακτήριο:" ,Πόλη, "τον" ,j, " ο μήνα"
max ← ΤΖ[1,1]
posmax ← 1
Για i από 1 μέχρι 35
     Για j από 1 μέχρι 12
          Αν ΤΖ[i,j]> max τότε
              max ← ΤΖ[i,j]
              posmax ← 1
          Τέλος_αν
     Τέλος_επανάληψης
Τέλος_επανάληψης
ΣΠ ← 0
Για j από 1 μέχρι 12
     ΣΠ ← ΣΠ + ΤΖ[posmax,j]
Τέλος_επανάληψης
Εμφάνισε "Ο υπεύθυνος είναι ο" ,ΥΠΕΥΘ[posmax], "και πήρε bonus" ,ΣΠ * 0,08
Εμφάνισε "Δώσε το όνομα του διευθυντή που αναζητάς"
Διάβασε Όν
Βρέθηκε ← ψευδής
i ← 1
Όσο Βρέθηκε = ψευδής και i <= 15 επανάλαβε
       Αν ΥΠΕΥΘ[i] = Όν τότε
            Βρέθηκε ← αληθής
            pos ← i
       Αλλιώς
            i ← i + 1
       Τέλος_αν
Τέλος_επανάληψης
Αν Βρέθηκε = ψευδής τότε
     Εμφάνισε "Δεν υπάρχει ο υπεύθυνος αυτός στο δυναμικό της αλυσίδας"
Αλλιώς
     Εμφάνισε ΥΠΕΥΘ[pos]
     πλ ← 0
     Για i από 1 μέχρι 15
          s ← 0
          s_pos ← 0
          Για j από 1 μέχρι 12
               Αν i = pos τότε
                   s_pos ← s_pos + ΤΖ[i,j]
               αλλιώς
                   s ← s + ΤΖ[i,j]
               Τέλος_αν
          Τέλος_επανάληψης
          Αν s_pos > s τότε
              πλ ← πλ + 1
          Τέλος_αν
          Εμφάνισε "είναι καλύτερος από:" , πλ
Τέλος_αν
Τέλος FOREIGN_LANGUAGES