ΕΥΡΕΣΗ ΕΛΑΧΙΣΤΟΥ ΚΑΙ ΜΕΓΙΣΤΟΥ ΕΝΟΣ ΠΙΝΑΚΑ Α[10]

ΠΡΟΓΡΑΜΜΑ MIN_MAX
ΜΕΤΑΒΛΗΤΕΣ
    ΑΚΕΡΑΙΕΣ: Α[10], i, MIN, MAX, posMIN, posMAX
ΑΡΧΗ
    Α[1] <-- 12
    Α[2] <-- 15
    Α[3] <-- 17
    Α[4] <-- 23
    Α[5] <-- -5
    Α[6] <-- 63
    Α[7] <-- 52
    Α[8] <-- 89
    Α[9] <-- 78
    Α[10] <-- 5
    MIN <-- Α[1]
    posMIN <-- 1
    MAX <-- Α[1]
    posMAX <-- 1
    ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ 10
        ΑΝ (Α[i] < MIN) ΤΟΤΕ
            MIN <-- Α[i]
            posMIN <-- i
        ΤΕΛΟΣ_ΑΝ
        ΑΝ (Α[i] > MAX) ΤΟΤΕ
            MAX <-- Α[i]
            posMAX <-- i
        ΤΕΛΟΣ_ΑΝ
    ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
    ΓΡΑΨΕ 'Μικρότερο στοιχείο πίνακα: ', MIN, ' στη θέση posMIN'
    ΓΡΑΨΕ 'Μεγαλύτερο στοιχείο πίνακα: ', MAX, ' στη θέση posMAX'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ