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