Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива - Turbo Pascal
Формулировка задачи:
Помогите пожалуйста найти в чем ошибка? Пишет что арифметическое переполнение! Задание: Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива. Размерность массива –20. Заполнение массива осуществить случайными
числами от -150 до 300.
Программа:
Решение задачи: «Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов массива»
textual
Листинг программы
m[i]:=-151+random(451);
Объяснение кода листинга программы
- Создаётся массив m размером 20.
- Для каждого i от 0 до 19 вычисляется значение m[i] как -151 + random(451).
- Вычисляется среднее арифметическое элементов массива m.
- Проверяется, что все элементы массива m меньше среднего арифметического.
- Если это условие выполняется, то находится сумма всех элементов массива m, которая сохраняется в переменной sum.
- Выводится значение переменной sum.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д