ΠΡΟΓΡΑΜΜΑ Νίκος2
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ΑΘΡΟΙΣΜΑ, ΜΕΤΡΗΤΗΣ, Χ
ΠΡΑΓΜΑΤΙΚΕΣ: ΜΟ
ΑΡΧΗ
ΓΡΑΨΕ 'Το πρόγραμμα βρίσκει τον μέσο όρο.'
ΓΡΑΨΕ 'Γράψτε τους αριθμούς και όταν θέλεται να τελειώσεται πατήστε αρνητικό αριθμό '
ΑΘΡΟΙΣΜΑ <-- 0
ΜΕΤΡΗΤΗΣ <-- 0
ΓΡΑΨΕ 'Δώστε αριθμό'
ΔΙΑΒΑΣΕ Χ
ΑΘΡΟΙΣΜΑ <-- Χ
ΜΕΤΡΗΤΗΣ <-- 1
ΟΣΟ Χ>=0 ΕΠΑΝΑΛΑΒΕ
ΓΡΑΨΕ 'Δώστε αριθμό'
ΔΙΑΒΑΣΕ Χ
ΑΘΡΟΙΣΜΑ <-- ΑΘΡΟΙΣΜΑ + Χ
ΜΕΤΡΗΤΗΣ <-- ΜΕΤΡΗΤΗΣ + 1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΜΕΤΡΗΤΗΣ <-- ΜΕΤΡΗΤΗΣ - 1
ΑΘΡΟΙΣΜΑ <-- ΑΘΡΟΙΣΜΑ - Χ
ΜΟ <-- ΑΘΡΟΙΣΜΑ / ΜΕΤΡΗΤΗΣ
ΓΡΑΨΕ 'Ο μέσος όρος είναι', ΜΟ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Νίκος2