! ======================================================================
! Να γίνει πρόγραμμα που να ζητάει τιμές για έναν πίνακα ακεραίων
! αριθμών 10 θέσεων και μια τιμή προς αναζήτηση. Στη συνέχεια να
! εμφανίζει σε ποια θέση υπάρχει η ζητούμενη τιμή. Αν δεν τη βρει, να
! εμφανίζει ενημερωτικό μήνυμα.
! ======================================================================
ΠΡΟΓΡΑΜΜΑ Εύρεση_τιμής_σε_πίνακα
ΣΤΑΘΕΡΕΣ
Ν=10
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ζητ_τιμή, θέση, Π[Ν], i
ΛΟΓΙΚΕΣ: βρέθηκε
ΑΡΧΗ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ 'Δώσε την ', i, 'η τιμή του πίνακα:'
ΔΙΑΒΑΣΕ Π[i]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε την τιμή που αναζητάς:'
ΔΙΑΒΑΣΕ ζητ_τιμή
βρέθηκε <-- ΨΕΥΔHΣ
i <-- 1
ΟΣΟ (βρέθηκε=ΨΕΥΔHΣ) ΚΑΙ (i<=Ν) ΕΠΑΝΑΛΑΒΕ
ΑΝ Π[i]=ζητ_τιμή ΤΟΤΕ
βρέθηκε <-- ΑΛΗΘΗΣ
θέση <-- i
ΑΛΛΙΩΣ
i <-- i+1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ βρέθηκε=ΑΛΗΘΗΣ ΤΟΤΕ
ΓΡΑΨΕ 'Η τιμή ', ζητ_τιμή, ' βρέθηκε στη θέση ', θέση, ' του πίνακα'
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Η τιμή ', ζητ_τιμή, ' δε βρέθηκε στον πίνακα'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Εύρεση_τιμής_σε_πίνακα