ΛΥΣΕΙΣ 8ης ΕΡΓΑΣΙΑΣ

Αλγόριθμος ασκ1
Για i από 1 μέχρι 50
       Διάβασε ον[i],αεπ[i]
       Εμφάνισε ον[i],αεπ[i]
Τέλος_επανάληψης
sum ← 0
Για i από 1 μέχρι 50
    sum ← sum + αεπ[i]
Τέλος_επανάληψης
mo ← sum/50
Εμφάνισε mo
Τέλος ασκ1

===============================================================

Αλγόριθμος ασκ2
Για i από 1 μέχρι 1000
       Διάβασε ον[i],ηλ[i]
       Αρχή_επανάληψης
                Διάβασε απ[i]
       Μέχρις_ότου απ[i]='ΝΑΙ' ή απ[i]='ΟΧΙ'
Τέλος_επανάληψης
sum ← 0
πλναι ← 0
Για i από 1 μέχρι 1000
       sum ← sum + ηλ[i]
       Αν απ[i]='ΝΑΙ' τότε πλναι ← πλναι + 1
Τέλος_επανάληψης
Αν πλναι > 500 τότε
      Εμφάνισε 'ναί στο εργοστάσιο'
      επικρ ← 'ΝΑΙ'
αλλιώς
      Εμφάνισε 'όχι στο εργοστάσιο'
      επικρ ← 'ΟΧΙ'
Τέλος_αν
mo ← sum/1000
Εμφάνισε mo
πλ ← 0
Για i από 1 μέχρι 1000
       Αν απ[i]= επικρ και ηλ[i] > mo τότε
             πλ ← πλ + 1
             Εμφάνισε ον[i]
       Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε πλ
Τέλος ασκ2

===============================================================

Αλγόριθμος ασκ3
Για i από 1 μέχρι 200
       Αρχή_επανάληψης
                Διάβασε χρ[i]
       Μέχρις_ότου χρ[i]='Μπλε' ή χρ[i]='Κόκκινο' ή χρ[i]='Πράσινο'
Τέλος_επανάληψης
Για i από 1 μέχρι 200
       Αν χρ[i]='Μπλε' τότε
             συχν[1] ← συχν[1] + 1
       αλλιώς_αν χρ[i]='Κόκκινο' τότε
             συχν[2] ← συχν[2] + 1
       αλλιώς
             συχν[3] ← συχν[3] + 1
       Τέλος_αν
Τέλος_επανάληψης
Για i από 1 μέχρι 3
       Εμφάνισε συχν[i]
Τέλος_επανάληψης
ποσμπλε ← συχν[1]/2
ποσκοκ ← συχν[2]/2
ποσπρασ ← συχν[3]/2
Εμφάνισε ποσμπλε, ποσκοκ, ποσπρασ
Τέλος ασκ3

===============================================================

Αλγόριθμος ασκ4
Δεδομένα //Ν//
Για i από 1 μέχρι Ν
       Διάβασε τιτ[i], αντ[i], δαν[i]
Τέλος_επανάληψης
αθρ_αντ ← 0
δαν_0 ← 0
Για i από 1 μέχρι Ν
       αθρ_αντ ← αθρ_αντ + αντ[i]
       Αν δαν[i]= 0 τότε
             δαν_0 ← δαν_0 + 1
             Εμφάνισε τιτ[i], 'δεν έχει δανεισθεί'
       Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε αθρ_αντ, αθρ_αντ/Ν, δαν_0
πλ ← 0
Για i από 1 μέχρι Ν
       Αν αντ[i] < αθρ_αντ/Ν και δαν[i] > 10 τότε
             πλ ← πλ + 1
             Εμφάνισε τιτ[i], 'λιγότερα αντίτυπα από το μ.ο.'
       Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε πλ
Τέλος ασκ4

===============================================================

Αλγόριθμος ασκ5
Για i από 1 μέχρι 12
        Διάβασε ον[i], πον[i], φ[i]
Τέλος_επανάληψης
αθρ1 ← 0
αθρ2 ← 0
πλ5φ ← 0
Για i από 1 μέχρι 12
        αθρ1 ← αθρ1 + πον[i]
        αθρ2 ← αθρ2 + φ[i]
        Αν φ[i] = 5 τότε
              πλ5φ ← πλ5φ + 1
              Εμφάνισε ον[i]
        Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε αθρ1/12, αθρ2/12, πλ5φ
πλ ← 0
Για i από 1 μέχρι 12
        Αν πον[i] > αθρ1/12 και φ[i] = 0 τότε
               πλ ← πλ + 1
               Εμφάνισε ον[i]
        Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε πλ
Τέλος ασκ5

===============================================================

Αλγόριθμος ασκ6
Για i από 1 μέχρι 12
        Διάβασε ον[i], ηλ[i], βαθ[i]
Τέλος_επανάληψης
maxβαθ ← βαθ[1]
νικ ← ον[1]
ηλνικ ← ηλ[1]
minηλ ← ηλ[1]
ονmin ← ον[1]
Για i από 2 μέχρι 12
        Αν βαθ[i] > maxβαθ τότε
               maxβαθ ← βαθ[i]
               νικ ← ον[i]
               ηλνικ ← ηλ[i]
        αλλιώς
               Αν βαθ[i] < minβαθ τότε
                     minβαθ ← βαθ[i]
               Τέλος_αν
        Τέλος_αν
        Αν ηλ[i] < minηλ τότε
              minηλ ← ηλ[i]
              ονmin ← ον[i]
        Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε maxβαθ, νικ, ηλνικ
Εμφάνισε minηλ, ονmin
Αν νικ = ονmin τότε Εμφάνισε 'νίκησε ο μικρότερος'
αθρ ← 0
Για i από 1 μέχρι 12
        αθρ ← αθρ + βαθ[i]
Τέλος_επανάληψης
αθρ ← αθρ - maxβαθ - minβαθ
μο ← αθρ/10
Εμφάνισε μο
Τέλος ασκ6

===============================================================

Αλγόριθμος ασκ7
Δεδομένα //url, πλ, χρ//
αθρ ← 0
Για i από 1 μέχρι 1000
        αθρ ← αθρ + πλ[i]
Τέλος_επανάληψης
μο ← αθρ/1000
Εμφάνισε μο
μεγ_αποκλ ← Α_Τ(πλ[1]-μο)
Για i από 2 μέχρι 1000
        Αν Α_Τ(πλ[i]-μο) > μεγ_αποκλ τότε
              μεγ_αποκλ ← Α_Τ(πλ[i]-μο)
        Τέλος_αν
Τέλος_επανάληψης
Για i από 1 μέχρι 1000
        Αν Α_Τ(πλ[i]-μο) = μεγ_αποκλ τότε
              Εμφάνισε url[i]
        Τέλος_αν
Τέλος_επανάληψης
Για i από 2 μέχρι 1000
        Για j από 1000 μέχρι i με_βήμα -1
                Αν πλ[j-1] < πλ[j] τότε
                      Αντιμετάθεσε πλ[j-1], πλ[j]
                      Αντιμετάθεσε url[j-1], url[j]
                      Αντιμετάθεσε χρ[j-1], χρ[j]
                αλλιώς
                      Αν πλ[j-1] = πλ[j] τότε
                            Αν χρ[j-1] < χρ[j] τότε
                                  Αντιμετάθεσε url[j-1], url[j]
                                  Αντιμετάθεσε χρ[j-1], χρ[j]
                            αλλιώς
                                  Αν χρ[j-1] = χρ[j] τότε
                                        Αν url[j-1] > url[j] τότε
                                              Αντιμετάθεσε url[j-1], url[j]
                                        Τέλος_αν
                                  Τέλος_αν
                            Τέλος_αν
                      Τέλος_αν
                 Τέλος_αν
          Τέλος_επανάληψης
Τέλος_επανάληψης
Για i από 1 μέχρι 100
        Εμφάνισε url[i]
Τέλος_επανάληψης
Διάβασε ον
υπάρχει ← Ψευδής
i ← 1
Όσο i ≤ 1000 και υπάρχει = Ψευδής επανάλαβε
          Αν url[i] = ον τότε
                Εμφάνισε i
                υπάρχει ← Αληθής
          Τέλος_αν
           i ← i + 1
Τέλος_επανάληψης
Αν υπάρχει = Ψευδής τότε Εμφάνισε 'δεν βρέθηκε'
Τέλος ασκ7

===============================================================

Αλγόριθμος ασκ8
Για i από 1 μέχρι 12
       Διάβασε μθ[i],μην[i]
Τέλος_επανάληψης
Για i από 2 μέχρι 12
        Για j από 12 μέχρι i με_βήμα -1
              Αν μθ[j-1] < μθ[j] τότε
                    Αντιμετάθεσε μθ[j-1], μθ[j]
                    Αντιμετάθεσε μην[j-1], μην[j]
               Τέλος_αν
       Τέλος_επανάληψης
Τέλος_επανάληψης
Εμφάνισε 'οι 2 μεγαλύτερες: ', μθ[1], μθ[2], 'τους μήνες: ',μην[1], μην[2]
Εμφάνισε 'οι 2 μικρότερες: ', μθ[10], μθ[9], 'τους μήνες: ',μην[10], μην[9]
Τέλος ασκ8

===============================================================

Αλγόριθμος ασκ9
Αρχή_επανάληψης
          Διάβασε πλ
Μέχρις_ότου πλ > 0
λάθη ← 0
αθρ ← 0
Για i από 1 μέχρι πλ
        Διάβασε ον[i]
        Αρχή_επανάληψης
                   Διάβασε βαθ[i]
                   Αν βαθ[i] <= 0 ή βαθ[i] > 20 τότε    !λάθος βαθμός
                         λάθη ← λάθη + 1
                   Τέλος_αν
       Μέχρις_ότου βαθ[i] > 0 και βαθ[i] ≤ 20
       αθρ ← αθρ + βαθ[i]
Τέλος_επανάληψης
Εκτύπωσε λάθη
μο ← αθρ/πλ
Εκτύπωσε μο
πιο_κοντά ← Α_Τ(βαθ[1]-μο)
Για i από 2 μέχρι πλ
       Αν Α_Τ(βαθ[i]-μο) < πιο_κοντά τότε
             πιο_κοντά ← Α_Τ(βαθ[i]-μο)
       Τέλος_αν
Τέλος_επανάληψης
Για i από 1 μέχρι πλ
       Αν Α_Τ(βαθ[i]-μο) = πιο_κοντά τότε
             Εκτύπωσε ον[i]
       Τέλος_αν
Τέλος_επανάληψης
Τέλος ασκ9

===============================================================

Αλγόριθμος ασκ10
Δεδομένα //ΧΩΡΑ, ΠΛΗΘ_2005, ΠΛΗΘ_2006//
αθρ1 ← 0
αθρ2 ← 0
Για i από 1 μέχρι 25
        αθρ1 ← αθρ1 + ΠΛΗΘ_2005[i]
        αθρ2 ← αθρ2 + ΠΛΗΘ_2006[i]
Τέλος_επανάληψης
Εμφάνισε  (αθρ2-αθρ1)/αθρ2*100
max ← -1
Για i από 1 μέχρι 25
        Εμφάνισε (ΠΛΗΘ_2006[i]-ΠΛΗΘ_2005[i])/ΠΛΗΘ_2005[i]*100
        Αν (ΠΛΗΘ_2006[i]-ΠΛΗΘ_2005[i])/ΠΛΗΘ_2005[i]*100 > max τότε
               max ← (ΠΛΗΘ_2006[i]-ΠΛΗΘ_2005[i])/ΠΛΗΘ_2005[i]*100
               country ← ΧΩΡΑ[i]
        Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε country
max2005 ← -1
max2006 ← -1
Για i από 1 μέχρι 25
        Αν ΠΛΗΘ_2005[i] > max2005 τότε
               max2005 ← ΠΛΗΘ_2005[i]
               country5 ← ΧΩΡΑ[i]
        Τέλος_αν
         Αν ΠΛΗΘ_2006[i] > max2006 τότε
               max2006 ← ΠΛΗΘ_2006[i]
               country6 ← ΧΩΡΑ[i]
         Τέλος_αν
Τέλος_επανάληψης
Αν country5 = country6 τότε
       Εμφάνισε country6
αλλιώς
       Εμφάνισε 'δεν είναι το ίδιο κράτος'
Τέλος_αν
Τέλος ασκ10

===============================================================

Αλγόριθμος ασκ11
Δεδομένα //Ο, ΑΡΘ, Ν//
Εκτύπωσε 'δώσε αριθμό τυχερού λαχνού'
Διάβασε αρ
Για i από 1 μέχρι Ν
        Αν ΑΡΘ[i] = αρ τότε
              Εκτύπωσε 'κερδίζεις μια συσκευή κινητού'
        αλλιώς_αν ΑΡΘ[i] mod 1000 = αρ mod 1000 τότε
              Εκτύπωσε 'κερδίζετε ένα mp3 player'
        αλλιώς_αν (ΑΡΘ[i] div 100 = αρ div 100) ή (ΑΡΘ[i] mod 100 = αρ mod 100) τότε
              Εκτύπωσε 'κερδίζετε μια δωροεπιταγή'
        αλλιώς_αν ΑΡΘ[i] mod 10 = αρ mod 10 τότε
              Εκτύπωσε 'κερδίζετε μια μπλούζα'
        αλλιώς
              Εκτύπωσε 'κερδίζετε στην αγάπη!'
        Τέλος_αν
Τέλος_επανάληψης
Τέλος ασκ11