83 / 306
Εκδόσεις ΜΠΑΧΑΡΑΚΗ – ΑΕΠΠ
82
Εμφάνισε
πλ_παικτών
πλήθος
0
Για
i
από
1
μέχρι
22
Αν
ΨΗΦΟΣ[i,i] = 1
Τότε
!
Λύνεται και με άθροισμα των
πλήθος
πλήθος + 1
!
στοιχείων της διαγώνιου
Τέλος_Αν
Τέλος_Επανάληψης
Εμφάνισε
πλήθος
Για
j
από
1
μέχρι
22
ΠΛ_ΨΗΦΩΝ[j]
0
Τέλος_Επανάληψης
Για
i
από
1
μέχρι
22
Για
j
από
1
μέχρι
22
Αν
ΨΗΦΟΣ[i,j] = 1
Τότε !
Λύνεται και με άθροισμα κατά στήλη
ΠΛ_ΨΗΦΩΝ[j]
ΠΛ_ΨΗΦΩΝ[j] + 1
Τέλος_Αν
Τέλος_Επανάληψης
Τέλος_Επανάληψης
Για
j
από
1
μέχρι
22
Αριθμός[j]
j
Τέλος_Επανάληψης
Για
i
από
2
μέχρι
22
Για
j
από
22 μέχρι i
με_βήμα
– 1
Αν
ΠΛ_ΨΗΦΩΝ[j – 1] < ΠΛ_ΨΗΦΩΝ[j]
Τότε
temp1
ΠΛ_ΨΗΦΩΝ[j – 1]
ΠΛ_ΨΗΦΩΝ[j – 1]
ΠΛ_ΨΗΦΩΝ[j]
ΠΛ_ΨΗΦΩΝ[j]
temp1
temp2
Αριθμός[j – 1]
Αριθμός[j – 1]
Αριθμός[j]
Αριθμός[j]
temp2
Tέλος_αν
Τέλος_Επανάληψης
Τέλος_Επανάληψης
Για
j
από
1
μέχρι
3
Εμφάνισε
Αριθμός[j] , ΠΛ_ΨΗΦΩΝ[j]
Τέλος_Επανάληψης
Τέλος
Θέμα_Δ