Получить минимальное, максимальное, среднее арифметическое, а также сумму и произведение всех чисел массива (не используя цикл) — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub GetCalculate()
    Dim iMassiv#(1 To 100), iCount%
    Dim iAverage#, iMin#, iMax#, iSum#, iProduct
  
    For iCount = 1 To 100
        iMassiv(iCount) = Rnd * 1000
    Next
  
    With Application
         iAverage = .Average(iMassiv)
         iMin = .Min(iMassiv)
         iMax = .Max(iMassiv)
         iSum = .Sum(iMassiv)
         iProduct = .Product(iMassiv)
    End With
End Sub

Похожие записи/страницы:

Leave a Comment