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