Создать массив из n (n больше 2) чисел, в котором первые два элемента задаются с клавиатуры, а все последующие равны сумме двух предыдущих элементов
Создать массив из n (n>2) чисел, в котором первые два элемента задаются с клавиатуры, а все последующие равны сумме двух предыдущих элементов
Гость
Ответ(ы) на вопрос:
ГостьSub z()
Dim a() As Integer
n = InputBox("Сколько чисел?")
ReDim a(n)
For i = 1 To 2
a(i) = InputBox("Введите число")
Next i
s = a(1) & " " & a(2)
For i = 3 To n
a(i) = a(i - 2) + a(i - 1)
s = s & " " & a(i)
Next i
MsgBox ("Массив: " & s)
End Sub
Не нашли ответ?
Похожие вопросы