ΠΡΟΓΡΑΜΜΑ Δραστηριότητα_ΦΕ2_1
ΜΕΤΑΒΛΗΤΕΣ
  ΑΚΕΡΑΙΕΣ: i, position, vathmos[10], key
  ΧΑΡΑΚΤΗΡΕΣ: onoma[10] 
  ΛΟΓΙΚΕΣ: done
ΑΡΧΗ
! Εισαγωγή δεδομένων
  ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ 10
    ΓΡΑΨΕ 'Δώσε όνομα μαθητή ', i
    ΔΙΑΒΑΣΕ onoma[i] 
    ΓΡΑΨΕ 'Δώσε βαθμό μαθητή ', i
    ΔΙΑΒΑΣΕ vathmos[i] 
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Αναζήτηση
  ΓΡΑΨΕ 'Δώσε βαθμό για αναζήτηση'
  ΔΙΑΒΑΣΕ key
  done <- ΨΕΥΔΗΣ
  position <- 0
  i <- 1
  ΟΣΟ (done = ΨΕΥΔΗΣ) ΚΑΙ (i <= 10) ΕΠΑΝΑΛΑΒΕ
    ΑΝ vathmos[i] = key ΤΟΤΕ
      done <- ΑΛΗΘΗΣ
      position <- i
    ΑΛΛΙΩΣ
      i <- i + 1
    ΤΕΛΟΣ_ΑΝ
  ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
! Αποτελέσματα
  ΑΝ done = ΑΛΗΘΗΣ ΤΟΤΕ
    ΓΡΑΨΕ onoma[position] 
  ΑΛΛΙΩΣ
    ΓΡΑΨΕ 'Δεν υπάρχει μαθητής με αυτό τον βαθμό'
  ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ