πρόγραμμα thema4
μεταβλητές
ακέραιες :i,j,lath[50],max,bath,katast[100],p,ti1,per,zz
χαρακτήρες: ap[100,50],ti2
αρχή
γράψε 'an thes na gemiseis ton pinaka monos sou pata 2 allios αν thes aftomata pata 1'
διάβασε per
για i από 1 μέχρι 100
για j από 1 μέχρι 50
zz <-- zz+1
ΕΠΙΛΕΞΕ per
περίπτωση 1
αρχή_επανάληψης
ti1 <-- ΤΥΧΑΙΟΣ(3)
μέχρις_ότου (ti1=1) ή (ti1=2) ή (ti1=3)
αν ti1=1 τότε
ti2 <-- 's'
αλλιώς_αν ti1=2 τότε
ti2 <-- 'l'
αλλιώς_αν ti1=3 τότε
ti2 <-- 'd'
τέλος_αν
ap[i,j] <-- ti2
περίπτωση 2
αρχή_επανάληψης
γράψε 'dose apantisi no ',zz
διάβασε ap[i,j]
μέχρις_ότου (ap[i,j]='s') ή (ap[i,j]='l') ή (ap[i,j]='d')
ΤΕΛΟΣ_ΕΠΙΛΟΓΩΝ
αν ap[i,j]='l' τότε
lath[j] <-- lath[j]+1
τέλος_αν
τέλος_επανάληψης
τέλος_επανάληψης
για j από 1 μέχρι 50
αν lath[j]>max τότε
max <-- lath[j]
τέλος_αν
τέλος_επανάληψης
για j από 1 μέχρι 50
αν lath[j]=max τότε
γράψε 'h diskoloteri erotisi einai h ',j
τέλος_αν
τέλος_επανάληψης
για i από 1 μέχρι 100
για j από 1 μέχρι 50
αν ap[i,j]='s' τότε
bath <-- bath + 2
αλλιώς_αν ap[i,j]='l' τότε
bath <-- bath-1
τέλος_αν
τέλος_επανάληψης
katast[i] <-- bath
bath <-- 0
τέλος_επανάληψης
για i από 1 μέχρι 100
αν katast[i]>= 50 τότε
p <-- p+1
τέλος_αν
τέλος_επανάληψης
γράψε 'oi ipopsifioi pou perasan einai ',p
τέλος_προγράμματος