193 / 306
Εκδόσεις ΜΠΑΧΑΡΑΚΗ – ΑΕΠΠ
192
Τέλος_επανάληψης
Αν
done = αληθής
τότε
Συν_Βαθ
0
Για
j
από
1
μέχρι
3
Συν_Βαθ
Συν_Βαθ +Βαθ[pos,j]
Τέλος _επανάληψης
Εμφάνισε
Αλ[pos], Συν_Βαθ
Αλλιώς
Εμφάνισε
‘’Δεν υπάρχει τέτοιος αθλητής’’
Τέλος_αν
Για
j
από
1
μέχρι
3
max
Bαθ[1,j]
min
Bαθ[1,j]
Για
i
από
2
μέχρι
16
Αν
Βαθ[i,j] > max
τότε
max
Bαθ[i,j]
Τέλος_αν
Αν
Βαθ[i,j] < min
τότε
min
Bαθ[i,j]
Τέλος_αν
Τέλος_επανάληψης
ανοιγμα[j]
max-min
Τέλος_επανάληψης
max_ανοιγμα
ανοιγμα[1]
Για
j
από
1
μέχρι
3
Αν
ανοιγμα[j] > max_ανοιγμα
τότε
max_ανοιγμα
ανοιγμα[j]
Τέλος_αν
Τέλος_επανάληψης
Για
j
από
1
μέχρι
3
Αν
ανοιγμα[j] = max_ανοιγμα
τότε
Εμφάνισε
αγωνισμα[j]
Τέλος_αν
Τέλος_επανάληψης
Τέλος
Θέμα_4