Question

Составить программу, которая формирует массив А из 85 случайных целых чисел, принадлежащих промежутку [4;14]. Параметром цикла является переменная s. Нумерация начинается с 1

Answer 1

Sub cikl()
Dim A(85) As Integer
K = 85
For s = 1 To K
A(s) = Int(11 * Rnd() + 4)
Next s
End Sub