@Carlos1996

Написать процедуру Sub с именем Proc6_ForEachNext предназначенную для выполнения одной и той же группы действий над каждым элементом массива по следующему алгоритму:
1. Выполнить описание одномерного массива AArray(10), состоящего из десяти целых чисел и описание переменных, используемых в программе, таких как vntA, intSum, intProiz, dblSr с помощью оператора Dim.
2. Осуществить ввод элементов массива AArray() внутри цикла Fornext с помощью окна ввода InputBox.
3. Выполнить начальную инициализацию переменной intSum для вычисления суммы элементов массива AArray(), переменной intProiz для вычисления произведения элементов этого массива и переменной dblSr для вычисления среднего арифметического элементов этого массива, присвоив значения 0, 1, 0 соответственно.
4. С использованием управляющей структуры For Each vntA In AArray … Next вычислить сумму, произведение и среднее арифметическое элементов массива AArray().
5. Результаты вычислений выдать на экран с помощью функции MsgBox.

0