Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub seven()
- Dim n As Integer, s As String, f As Long, Table(15) As Integer, Z As Integer, k As Integer, r As Integer, L As Integer, U As Double, h As Long, p As String
- Z = 0
- k = 0
- r = 100
- U = 1
- For n = 1 To 15
- Table(n) = Rnd * 25
- Z = Z + Table(n)
- U = U * Table(n)
- Next n
- f = Z / 15 'арефм
- h = U ^ (1 / 15) 'геом
- For n = 1 To 15
- s = s & Table(n) & " "
- Next n
- For n = 1 To 15
- If Table(n) > k Then
- k = Table(n) 'наибрльшее
- End If
- If Table(n) < r Then
- r = Table(n) 'наименьшее
- End If
- L = f
- If (k - f) > (f - r) Then
- L = k
- End If
- If (k - f) < (f - r) Then
- L = r
- End If
- Next n
- If L \ 2 = L / 2 Then
- For n = 1 To 15
- If L \ 3 = L / 3 Then
- Table(n) = 0
- End If
- Next n
- Else
- For n = 1 To 15
- If L \ 5 = L / 5 Then
- Table(n) = Table(n) ^ 2
- End If
- Next n
- End If
- For n = 1 To 15
- p = p & Table(n) & " "
- Next n
- MsgBox s & vbNewLine & "Среднее геом. = " & h & vbNewLine & "Среднее арефм. = " & f & vbNewLine & "Наибольшее откл. = " & L & vbNewLine & p
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement