ΠΡΟΓΡΑΜΜΑ formula1 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: i,j,ΣΒ_ΟΔ[11,2],αγ,κατ,κ,ΣΒ[22],temp,ΣΟΜ[22] ΧΑΡΑΚΤΗΡΕΣ: ομαδα[11],οδηγος[11,2],ονομα,ΟΔΓ[22],temp2 ΑΡΧΗ ! ------- α ερωτημα ------- ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11 ΓΡΑΨΕ 'Δώσε όνομα ομάδας ',i ΔΙΑΒΑΣΕ ομαδα[i] ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 2 ΓΡΑΨΕ 'Δώσε όνομα ',j,'ου οδηγου' ΔΙΑΒΑΣΕ οδηγος[i,j] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! ------- β ερωτημα ------- ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11 ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 2 ΣΒ_ΟΔ[i,j] <-- 0 ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ αγ ΑΠΟ 1 ΜΕΧΡΙ 18 ΓΙΑ κατ ΑΠΟ 1 ΜΕΧΡΙ 8 ΓΡΑΨΕ 'Δώσε όνομα οδηγου που τερματησε ',κατ,'ος στον αγωνα',αγ ΔΙΑΒΑΣΕ ονομα ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11 ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 2 ΑΝ ονομα=οδηγος[i,j] ΤΟΤΕ ΑΝ κατ=1 ΤΟΤΕ ΣΒ_ΟΔ[i,j] <-- ΣΒ_ΟΔ[i,j]+10 ΑΛΛΙΩΣ_ΑΝ κατ=2 ΤΟΤΕ ΣΒ_ΟΔ[i,j] <-- ΣΒ_ΟΔ[i,j]+8 ΑΛΛΙΩΣ ΣΒ_ΟΔ[i,j] <-- ΣΒ_ΟΔ[i,j]+(9-κατ) ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! ------- γ ερωτημα ------- κ <-- 0 ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11 ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ 2 κ <-- κ+1 ΟΔΓ[κ] <-- οδηγος[i,j] ΣΒ[κ] <-- ΣΒ_ΟΔ[i,j] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 22 ΓΙΑ j ΑΠΟ 22 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1 ΑΝ ΣΒ[j-1]<ΣΒ[j] ΤΟΤΕ temp <-- ΣΒ[j-1] ΣΒ[j-1] <-- ΣΒ[j] ΣΒ[j] <-- temp temp2 <-- ΟΔΓ[j-1] ΟΔΓ[j-1] <-- ΟΔΓ[j] ΟΔΓ[j] <-- temp2 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'πρωταθλητης ειναι ο',ΟΔΓ[1] ! ------- δ ερωτημα ------- ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11 ΣΟΜ[i] <-- ΣΒ_ΟΔ[i,1]+ ΣΒ_ΟΔ[i,2] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 11 ΓΙΑ j ΑΠΟ 11 ΜΕΧΡΙ i ΜΕ ΒΗΜΑ -1 ΑΝ ΣΟΜ[j-1]<ΣΟΜ[j] ΤΟΤΕ temp <-- ΣΟΜ[j-1] ΣΟΜ[j-1] <-- ΣΟΜ[j] ΣΟΜ[j] <-- temp temp2 <-- ομαδα[j-1] ομαδα[j-1] <-- ομαδα[j] ομαδα[j] <-- temp2 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 11 ΓΡΑΨΕ ομαδα[i],'κατεταγει',i,'η' ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΓΡΑΨΕ 'πρωταθλητρια ομαδα ειναι η',ομαδα[1] ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ