---

Dim m, i As Integer

m = A(1)

For i = 2 To 10
    If A(i) > m Then m = A(i)
Next

Label3.Caption = m

Dim m, i As Integer

m = A(1)

For i = 2 To 10
    If A(i) < m Then m = A(i)
Next

Label3.Caption = m
Dim s, i As Integer

s = 0

For i = 1 To 10
    s = s + A(i)
Next

Label3.Caption = s
Dim x, k, i As Integer

x = Val(Text1.Text)
k = 0

For i = 1 To 10
    If A(i) = x Then k = k + 1
Next

Label3.Caption = k
Dim i As Integer

Randomize

For i = 1 To 10
    A(i) = Int(Rnd * 100)
Next
Dim i As Integer

For i = 1 To 10
    A(i) = Val(InputBox("Введите число"))
Next