Глупая задача…
Дан динамический массив А(n), заполненный случайными числами с помощью генератора случайных чисел (элементы массива вывести в ячейки рабочего листа). Найти сумму и количество элементов массива, остаток от деления которых на 2 равен 3. Полученные значения вывести в одно окно сообщения.
Ни одно число не будет подходить под условие задачи, но решение есть.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
Public Sub sum1() Dim i As Integer Dim sum As Integer Dim count As Integer sum = 0 count = 0 n = InputBox("n=") ' Просим ввести n - размерность массива. ReDim arr(n) Cells.Value = "" Cells.Interior.ColorIndex = -4142 For i = 1 To n arr(i) = Int((0 - 100 + 1) * Rnd + 100) If (arr(i) Mod 2 = 0) Then sum = sum + arr(i) count = count + 1 Cells(1, i).Interior.Color = vbGreen End If Cells(1, i).Value = arr(i) ' Печать в ячейку Next i MsgBox ("Сумма = " + CStr(sum) + " Количество = " + CStr(count)) End Sub |