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
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.