ΧΡΙΣΤΟΥΓΕΝΝΙΑΤΙΚΗ ΕΡΓΑΣΙΑ ΜΕΡΟΣ Β' (13-14)

13. 

Αλγόριθμος ασκ13χριστ
max ← -1
πλ ← 0
πλ18 ← 0
Εμφάνισε 'δώσε ον/μο'
Διάβασε ονεπ
Όσο ονεπ ≠ ' ' επανάλαβε
         s ← 0
         Για i από 1 μέχρι 10
                Αρχή_επανάληψης
                         Εμφάνισε 'δώσε βαθμό μαθήματος'
                         Διάβασε βαθ
                Μέχρις_ότου βαθ ≥ 0 και βαθ ≤ 20
                 s ← s + βαθ
         Τέλος_επανάληψης
         μο ← s/10
         Εμφάνισε μο, ονεπ
         Αν μο > 18 τότε
               πλ18 ← πλ18 + 1
         Τέλος_αν
          πλ ← πλ + 1
          Αν μο > max τότε
                max ← μο
                ονεπmax ← ονεπ
          Τέλος_αν
          Εμφάνισε 'δώσε ον/μο'
          Διάβασε ονεπ
Τέλος_επανάληψης
Αν πλ ≠ 0 τότε
      Εμφάνισε ονεπmax
      ποσ18 ← πλ18/πλ*100
      Εμφάνισε ποσ18
αλλιώς
      Εμφάνισε 'λάθος δεδομένα'
Τέλος_αν
Τέλος ασκ13χριστ

14. 

Αλγόριθμος ασκ14χριστ
max ← -1
Για i από 1 μέχρι 15
       Εμφάνισε 'δώσε όνομα αθλητή'
       Διάβασε αθλ
       maxαρασε ← -1
       Για j από 1 μέχρι 3
              Εμφάνισε 'δώσε την ' , j , 'η προσπάθεια του αρασέ'
              Διάβασε αρασέ
              Αν αρασε  > maxαρασε τότε
                    maxαρασε ← αρασέ
                    προσπαθ1 ← j
              Τέλος_αν
        Τέλος_επανάληψης
        maxζετε ← -1
        Για j από 1 μέχρι 3
              Εμφάνισε 'δώσε την ' , j , 'η προσπάθεια του αρασέ'
              Διάβασε ζετέ
              Αν ζετέ  > maxζετε τότε
                    maxζετε ← ζετέ
                    προσπαθ2 ← j
              Τέλος_αν
        Τέλος_επανάληψης
        αθραθλ ← maxαρασε + maxζετε
        Εμφάνισε 'καλύτερη προσπάθεια στο αρασέ : ' , maxαρασε , ' στην ' , προσπαθ1
        Εμφάνισε 'καλύτερη προσπάθεια στο ζετέ : ' , maxζετε , ' στην ' , προσπαθ2
        Εμφάνισε 'σύνολο κιλών: ' , αθραθλ
        Αν αθραθλ > max τότε
              max ← αθραθλ
              νικητής ← αθλ
        Τέλος_αν
Τέλος_επανάληψης
Εμφάνισε νικητής , max
Τέλος ασκ14χριστ