ΠΡΟΓΡΑΜΜΑ max_min_8esi
ΣΤΑΘΕΡΕΣ
Ν=100
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΠΙΝ[Ν], ΘΑ, ΘΒ, Ι
ΑΡΧΗ
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΡΑΨΕ 'ΔΩΣΤΕ ΤΟ, ', Ι, 'ΣΤΟΙΧΕΙΟ ΤΟΥ ΠΙΝΑΚΑ.'
ΔΙΑΒΑΣΕ ΠΙΝ[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΘΑ <-- 1 !ΜΑΧ
ΘΒ <-- 1 !ΜΙΝ
ΓΙΑ Ι ΑΠΟ 2 ΜΕΧΡΙ Ν
ΑΝ ΠΙΝ[Ι] > ΠΙΝ[ΘΑ] ΤΟΤΕ
ΘΑ <-- Ι
ΤΕΛΟΣ_ΑΝ
ΑΝ ΠΙΝ[Ι] < ΠΙΝ[ΘΒ] ΤΟΤΕ
ΘΒ <-- Ι
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Το μέγιστο στοιχείο του πίνακα είναι το', ΠΙΝ[ΘΑ], 'και βρίσκετε στην θέση', ΘΑ
ΓΡΑΨΕ 'Το ελάχιστο στοιχείο του πίνακα είναι το', ΠΙΝ[ΘΒ], 'και βρίσκετε στην θέση', ΘΒ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ