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