В диапазоне ячеек А1:А15 задать массив из целых - вопрос №12291650115 от asanovatoma1 05.11.2021 05:30

Question

Информатика: В диапазоне ячеек А1:А15 задать массив из целых чисел, найти сумму элементов массива и разделить каждый элемент массива на полученное значение результат получить в диапазоне ячеек Е1:Е15. Разместить командную кнопку «Вычислить» и написать к ней процедуру. Результат с моделируйте на рабочем листе самостоятельно. Делала в Exс что не так Sub Лист3_Кнопка1_Щелчок() Dim s, d, i As Integer Описание данных s = 0 Начальные присваивания For i = 1 To 15 s = s + Cells(i, 1) d = Cells(i, 1) / s Cells(16, 3)

asanovatoma1 · Answer

Sub Macro() Dim arr(1 To 15) As  IntegerDim i As  IntegerDim count As  Integercount = 0 For i = 1 To 15 arr(i) = Лист1.Cells(i, 1).Value count = count + arr(i) Next i Worksheets( Лист1 ).Range( B17 ) = count For i = 1 To 15 Лист1.Cells(i, 5) = arr(i) / count Next i End SubОбъяснение:...