ΠΡΟΓΡΑΜΜΑ επεξεργασια_πινακα ΣΤΑΘΕΡΕΣ μεγεθος_πινακα = 100 ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: ι, θ1, θ2, ξ ΠΡΑΓΜΑΤΙΚΕΣ: Α[μεγεθος_πινακα], μαχ ΑΡΧΗ ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μεγεθος_πινακα ΔΙΑΒΑΣΕ Α[ι] ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ μαχ <- 0 ΓΙΑ ι ΑΠΟ 1 ΜΕΧΡΙ μεγεθος_πινακα ΓΙΑ ξ ΑΠΟ ι + 1 ΜΕΧΡΙ μεγεθος_πινακα ΑΝ Α[ι] <= Α[ξ] ΚΑΙ μαχ < ξ - ι ΤΟΤΕ μαχ <- ξ - ι θ1 <- ι θ2 <- ξ ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΝ μαχ <> 0 ΤΟΤΕ ΓΡΑΨΕ 'οι 2 θεσεις ειναι ', θ1, ',', θ2 ΓΡΑΨΕ 'Α[', θ1, ']=', Α[θ1], ' και ', 'Α[', θ2, ']=', Α[θ2] ΑΛΛΙΩΣ ΓΡΑΨΕ "δεν υπαρχουν τετοιες θεσεις" ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ