Найти среднее арифметическое чётных элементов массива - Pascal ABC
Формулировка задачи:
Дан одномерный массив, который содержит не более 10 целых чисел. Найти среднее арифметическое четных элементов
Можете помочь пожалуйста
Решение задачи: «Найти среднее арифметическое чётных элементов массива»
textual
Листинг программы
if k=0 then write('Нет чётных элементов') else write('Результат ',avg/k);
Объяснение кода листинга программы
- Переменная
k
равна 0, поэтому выводится сообщениеНет чётных элементов
.- Переменная
k
не равна 0, поэтому выводится результат в виде среднего арифметического чётных элементов массива, делённого на значение переменнойk
.
- Переменная
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д