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