ΛΥΣΗ ΕΠΑΝΑΛΗΠΤΙΚΗΣ ΑΣΚΗΣΗΣ 24

Αλγόριθμος Εκδόσεις

Για i από 1 μέχρι 35

Διάβασε Ο[i], Β[i]

S ← 0

Διάβασε ποσό

Όσο ποσό > 0 επανάλαβε

S ← S + ποσό

Διάβασε ποσό

Τέλος_επανάληψης

Αν S <= 200 τότε

μπόνους ← 0

Αλλιώς_αν S <= 1000 τότε

μπόνους ← (S – 200) * 1.5/100

Αλλιώς

μπόνους ← 800 * 1.5/100 + (S – 1000) * 4/100

Τέλος_αν

Εκτύπωσε μπόνους

Τ[i] ← Β[i] + μπόνους

Τέλος_επανάληψης

max ← -1

Για i από 1 μέχρι 35

Αν Τ[i] <>και Τ[i] > max τότε

max ← Τ[i]

θ ← i

Τέλος_αν

Τέλος_επανάληψης

Αν max = -1 τότε

Εκτύπωσε "Κανείς με μισθό <600"

Αλλιώς

Εκτύπωσε O[θ]

Τέλος_αν

Για i από 2 μέχρι 35

Για j από 35 μέχρι i με_βήμα –1

Αν Τ[j–1] < Τ[j] τότε

Αντιμετάθεσε Τ[j–1], Τ[j]

Αντιμετάθεσε Ο[j–1], Ο[j]

Τέλος_αν

Τέλος_επανάληψης

Τέλος_επανάληψης

διακοπή ← ψευδής

i ← 1
πρώτος ← 0

Όσο (διακοπή = ψευδής) και (i <= 35) επανάλαβε

Αν (Τ[i] = Τ[1] τότε

πρώτος ← πρώτος + 1

i ← i + 1

Αλλιώς

διακοπή ← αληθής

Τέλος_αν
Τέλος_επανάληψης

διακοπή ← ψευδής

i ← πρώτος + 1

Όσο (διακοπή =ψευδής) και (i <= 35) επανάλαβε

Αν (Τ[i] = Τ[πρώτος + 1] τότε

Εκτύπωσε Ο[i]

i ← i + 1

Αλλιώς

διακοπή ← αληθής

Τέλος_αν
Τέλος_επανάληψης

Τέλος Εκδόσεις