Заменить максимальный элемент массива средним значением всех его элементов. Язык VBA

Question

Информатика

Машоня

17 марта, 05:45

Заменить максимальный элемент массива средним значением всех его элементов. Язык VBA

+2

Ответы (1)

Знаете ответ?

Никеша · Answer 1

Dim i As Integer, sum As Single, sr As Single, max As SingleDim k (10) As Single, q As IntegerDim zRandomizeFor i = 0 To 10k (i) = Rnd () * 30 - 10sum = sum + k (i) Cells (i + 1, 1) = Round (k (i), 2) If max < k (i) Thenmax = k (i) q = iEnd IfNextCells (i + 1, 1) = "max = " & maxsr = sum / 10k (q) = sri = 0For Each z In kCells (i + 1, 2) = Round (z, 2) i = i + 1NextCells (i + 1, 2) = dCells (i + 1, 2) = "sr = " & sr