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