ΠΡΟΓΡΑΜΜΑ Selection_Sort
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: A[20], i, j, THMIN, TEMP
ΑΡΧΗ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 20
    ΓΡΑΨΕ 'Δώσε το', i, ' στοιχείο του πίνακα'
    ΔΙΑΒΑΣΕ A[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 19                                                     ! N-1
    THMIN <- i
    ΓΙΑ j ΑΠΟ i + 1 ΜΕΧΡΙ 20                                                  !N
      ΑΝ A[j] < A[THMIN] ΤΟΤΕ                                          ! αύξουσα
        THMIN <- j
      ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    TEMP <- A[i] 
    A[i] <- A[THMIN] 
    A[THMIN] <- TEMP
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
  ΓΡΑΨΕ 'Εκτύπωση με ταξινομημένα τα στοιχεία'
  ΓΙΑ 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