Γράψτε αλγόριθμο που διαβάζει 50 αριθμητικές τιμές, υπολογίζει
και εμφανίζει το μέσο όρο των τιμών που ήταν ακέραιες (αν
υπάρχουν).
Λύση
Αλγόριθμος Ασκ
σ <-- 0
Ακερ <-- 0
Για κ από 1 μέχρι 50
Διάβασε Χ
Αν Α_Μ(Χ) = Χ τότε
σ <-- σ+Χ
Ακερ <-- Ακερ+1
Τέλος_αν
Τέλος_επανάληψης
Αν Ακερ > 0 τότε
ΜΟ <-- σ/Ακερ
Εμφάνισε ΜΟ
αλλιώς
Εμφάνισε 'Δεν υπάρχει κανένας ακέραιος!'
Τέλος_αν
Τέλος Ασκ
και εμφανίζει το μέσο όρο των τιμών που ήταν ακέραιες (αν
υπάρχουν).
Λύση
Αλγόριθμος Ασκ
σ <-- 0
Ακερ <-- 0
Για κ από 1 μέχρι 50
Διάβασε Χ
Αν Α_Μ(Χ) = Χ τότε
σ <-- σ+Χ
Ακερ <-- Ακερ+1
Τέλος_αν
Τέλος_επανάληψης
Αν Ακερ > 0 τότε
ΜΟ <-- σ/Ακερ
Εμφάνισε ΜΟ
αλλιώς
Εμφάνισε 'Δεν υπάρχει κανένας ακέραιος!'
Τέλος_αν
Τέλος Ασκ