ΠΡΟΓΡΑΜΜΑ ArrayValidation_Sub2
ΣΤΑΘΕΡΕΣ
  n = 6
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, A[n]
ΑΡΧΗ
  i <- 1
  ΟΣΟ i <= n ΕΠΑΝΑΛΑΒΕ
    ΓΡΑΨΕ "A[", i, "] : "
    ΔΙΑΒΑΣΕ A[i] 
 ! Επόμενη εισαγωγή ΜΟΝΟ αν εισάγαμε στοιχείο διαφορετικό απο τα προηγούμενα,
 ! αλλιώς το i παραμένει στην ίδια τιμή και το στοιχείο ζητείται και πάλι
 ! στην επόμενη επανάληψη
    ΑΝ valid(A, i) = ΑΛΗΘΗΣ ΤΟΤΕ       ! Αν το στοιχείο είναι διαφορετικό
      i <- i + 1                       ! απο τα προηγούμενα, προχωράμε στο
    ΤΕΛΟΣ_ΑΝ                           ! επόμενο στοιχείο
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
 ! Εκτύπωση
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ n
    ΓΡΑΨΕ "A[", i, "] : ", A[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ

ΣΥΝΑΡΤΗΣΗ valid(A, i): ΛΟΓΙΚΗ
ΣΤΑΘΕΡΕΣ
  n = 6
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, j, A[n]
ΑΡΧΗ
  valid <- ΑΛΗΘΗΣ ! Έστω οτι δόθηκε στοιχείο διαφορετικό απο τα προηγούμενα
 ! Συγκρίνουμε το νέο στοιχείο με όλα τα προηγούμενα
  ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ i - 1
    ΑΝ A[i] = A[j] ΤΟΤΕ ! Βρέθηκε ίδιο στοιχείο
      valid <- ΨΕΥΔΗΣ
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ