Составить программу, которая формирует массив А из 85 случайных целых чисел, принадлежащих промежутку [4;14]. Параметром цикла является переменная s. Нумерация начинается с 1
Answers & Comments
v1248
Sub cikl() Dim A(85) As Integer K = 85 For s = 1 To K A(s) = Int(11 * Rnd() + 4) Next s End Sub
Answers & Comments
Dim A(85) As Integer
K = 85
For s = 1 To K
A(s) = Int(11 * Rnd() + 4)
Next s
End Sub