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