εχω λυσει το θεμα 4 χωρίς πίνακες. Πειτε μου σας παρακαλω αν είναι σωστο
Αλγόριθμος θεμα_4
tc11← 1000^1000
tc12← 1000^1000
tc13← 1000^1000
tc21← 1000^1000
tc22← 1000^1000
tc23← 1000^1000
tc31← 1000^1000
tc32← 1000^1000
tc33← 1000^1000
max1← 1000^1000
max2← 1000^1000
max3← 1000^1000
onc11← " "
onc12← " "
onc13← " "
onc21← " "
onc22← " "
onc23← " "
onc31← " "
onc32← " "
onc33← " "
on1← " "
on2← " "
on3← " "
c1← 0
c2← 0
c3← 0
Για i από 1 μέχρι 35
Διάβασε on
Αρχή_επανάληψης
Διάβασε kat
Μέχρις_ότου kat="c1" ή kat="c2"ή kat="c3"
Διάβασε prxr,gph
sx← prxr/(70*gph)
Αν kat="c1" τότε
c1← c1+1
αλλιώς_αν kat="c2" τότε
c2← c2+1
αλλιώς
c3← c3+1
Τέλος_αν
Αν kat="c1" τότε
Αν sx < tc11 τότε
tc13← tc12
onc13← onc12
tc12← tc11
onc12← onc11
tc11← sx
onc11← on
αλλιώς_αν sx < tc12 τότε
tc13← tc12
onc13← onc12
tc12← sx
onc12← on
αλλιώς_αν sx < tc13 τότε
tc13← sx
onc13← on
Τέλος_αν
αλλιώς_αν kat="c2" τότε
Αν sx < tc21 τότε
tc23← tc22
onc23← onc22
tc22← tc21
onc22← onc21
tc21← sx
onc21← on
αλλιώς_αν sx < tc22 τότε
tc23← tc22
onc23← onc22
tc22← sx
onc22← on
αλλιώς_αν sx < tc23 τότε
tc23← sx
onc23← on
Τέλος_αν
αλλιώς
Αν sx < tc31 τότε
tc33← tc32
onc33← onc32
tc32← tc31
onc32← onc31
tc31← sx
onc31← on
αλλιώς_αν sx < tc32 τότε
tc33← tc32
onc33← on32
tc32← sx
onc32← on
αλλιώς_αν sx < tc33 τότε
tc33← sx
onc33← on
Τέλος_αν
Τέλος_αν
Αν sx < max1 τότε
max3← max2
on3← on2
max2← max1
on2← on1
max1← sx
on1← on
αλλιώς_αν sx < max2 τότε
max3← max2
on3← on2
max2← sx
on2← on
αλλιώς_αν sx < max3 τότε
max3← sx
on3← on
Τέλος_αν
Τέλος_επανάληψης
maxk← c1
onmax← "c1"
Αν c2 > maxk τότε
maxk← c2
onmax← "c2"
Τέλος_αν
Αν c3 > maxk τότε
maxk← c3
onmax← "c3"
Τέλος_αν
Εμφάνισε onmax
Εμφάνισε "Για την κατηγορια c1:",onc11,onc12,onc13
Εμφάνισε "Για την κατηγορια c2:",onc21,onc22,onc23
Εμφάνισε "Για την κατηγορια c3:",onc31,onc32,onc33
Εμφάνισε "Για τη γενικη καταταξη:",on1,on2,on3
Τέλος θεμα_4