38 / 306
37
ΑΕΠΠ – Εκδόσεις ΜΠΑΧΑΡΑΚΗ
Αν
ΠΛΗΘΟΣ[J] < ΜΙΝ
τότε
ΜΙΝ
ΠΛΗΘΟΣ[J]
Τέλος_Αν
Τέλος_Επανάληψης
Για
J
από
1 μέχρι 50
Αν
ΠΛΗΘΟΣ[J] = ΜΙΝ
τότε
Εκτύπωσε
J
Τέλος_Αν
Τέλος_Επανάληψης
ΠΛΗΘ
0
Για
Ι
από
1
μέχρι
100
ΒΑΘ[Ι]
0
Για
J
από
1
μέχρι
50
Αν
ΑΠ[I,J] = "Σ"
τότε
ΒΑΘ[Ι]
ΒΑΘ[Ι] + 2
Αλλιώς_Αν
ΑΠ[I,J] = "Λ"
ΒΑΘ[Ι]
ΒΑΘ[Ι] - 1
Τέλος_Αν
Τέλος_Επανάληψης
Αν
ΒΑΘ[Ι] > 50
τότε
ΠΛΗΘ
ΠΛΗΘ + 1
Τέλος_Αν
Τέλος_Επανάληψης
Εκτύπωσε
ΠΛΗΘ
Τέλος
Θέμα_4