Найти среднее арифметическое чётных элементов массива - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Дан одномерный массив, который содержит не более 10 целых чисел. Найти среднее арифметическое четных элементов Можете помочь пожалуйста

Решение задачи: «Найти среднее арифметическое чётных элементов массива»

textual
Листинг программы
 if k=0 then write('Нет чётных элементов') else write('Результат ',avg/k);

Объяснение кода листинга программы

  1. Переменная k равна 0, поэтому выводится сообщение Нет чётных элементов.
    1. Переменная k не равна 0, поэтому выводится результат в виде среднего арифметического чётных элементов массива, делённого на значение переменной k.

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы