Если боишься сделать ошибку, то не бойся. Бери и делай. Будет ошибка - будешь её понимать, и исправлять.
Задача достаточно проста, чтобы её можно было решить без ошибок. Нуууу, если только пофантазировать, то можно предположить что кто-либо может забыть, что массивы могут быть как чётной, так и нечётной длины.
На скрине всё видно, ну а вообще среднее значение - это сумма чисел делённая на их количество, тогда получается (1+4)/2=2,5
Тут такая закономерность
1+1=2
1+2=3
2+3=5
3+5=8
5+8=13
Ответ=13
понял закономерность
Взять рубашку
включить утюг
подождать пока утюг нагреется
положить рубашку на гладильную доску(или ещё на что то твёрдое)
погладить рубашку
свернуть рубашку
выключить утюг
Happy End!
Sub z()
Dim a(8) As String
For i = 1 To 8
a(i) = InputBox("Введи слово")
Next i
For i = 1 To 8
Cells(i + 1, 1) = a(i)
n = Len(a(i))
Cells(i + 1, 2) = n
Cells(i + 1, 3) = Mid(a(i), 1, 1)
Cells(i + 1, 4) = Mid(a(i), n, 1)
Next i
<span>End Sub
Первую строку не использовал, оставил для заголовков</span>