Задан массив из n вещественных чисел {yi} i=1,n (n<=15) Вычислить элементы нового массива...

В проекте код поместить на листе, где находятся данные.
Записать числа в столбец, выделить заполненные ячейки, потом запустить данный код.

Sub abcd()
    Dim r As Range
    Set r = Selection
    firstRow = r.Rows(1).Row
    yiCol = r.Columns(1).Column
    n = r.Rows.Count
    ReDim yi(1 To n) As Double, zi(1 To n) As Double
    For i = 1 To n
        yi(i) = Cells(firstRow + i - 1, yiCol)
        zi(i) = IIf(yi(i) > 0 And i Mod 2 = 0, Sqr(yi(i)), yi(i))
        Cells(firstRow + i - 1, yiCol + 1) = zi(i)
    Next i
End Sub