ΠΡΟΓΡΑΜΜΑ Selection_Sort
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: A[20], K1, x, i, j
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
    ΓΡΑΨΕ 'Δώσε το', i, ' στοιχείο του πίνακα'
    ΔΙΑΒΑΣΕ A[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 19
    K1 <- i
    x <- A[i] 
    ΓΙΑ j ΑΠΟ i + 1 ΜΕΧΡΙ 20
      ΑΝ x > A[j] ΤΟΤΕ
        K1 <- j
        x <- A[j] 
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    A[K1] <- A[i] 
    A[i] <- x
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Εκτύπωση με ταξινομημένα τα στοιχεία'
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
    ΓΡΑΨΕ A[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
!ArxeioEisodou
15
19
14
16
18
10
11
9
8
13
17
14
6
7
19
18
20
21
10
12