110 / 306
109
ΑΕΠΠ – Εκδόσεις ΜΠΑΧΑΡΑΚΗ
Τέλος_αν
Αρχή_επανάληψης
Διάβασε
Ονομα
pos
0
found
ψευδής
i
1
Οσο
i <= 10 και found = ψευδής
επανάλαβε
Αν
Ονομα = ΟΝ [i]
τότε
found
αληθης
pos
i
Αλλιως
i
i + 1
Τέλος_αν
Τέλος_επανάληψης
Μέχρις_ότου
found = αληθης
Για
i
από
1
μέχρι
4
ΕΒΔ[i]
0
Τέλος_επανάληψης
Για
j
από
1
μέχρι
7
ΕΒΔ[1]
ΕΒΔ[1] + ΕΠ[pos, j]
ΕΒΔ[2]
ΕΒΔ[2] + ΕΠ[pos, j+7]
ΕΒΔ[3]
ΕΒΔ[3] + ΕΠ[pos, j+14]
ΕΒΔ[4]
ΕΒΔ[4] + ΕΠ[pos, j+21]
Τέλος_επανάληψης
max
ΕΒΔ[1]
Για
i
από
2
μέχρι
4
Αν
ΕΒΔ[i] > max
τότε
max
ΕΒΔ[i]
Τέλος_αν
Τέλος_επανάληψης
Για
i
από
1
μέχρι
4
Αν
ΕΒΔ[i] = max
τότε
Εμφάνισε
i
Τέλος_αν
Τέλος_επανάληψης
Τέλος
Θέμα_Δ