Задан массив из n вещественных чисел {yi} i=1,n (n<=15) Вычислить элементы нового массива {zi) по заданным правилам : zi= yi^1/2 если уі>0 и і четное. уi в противном случае. Нужен полный текст программы . Vba excel

Числа нужно вводить через Inputbox

Где об этом написано?

Мысли, уважаемый, на этом Сервисе, не читают.

А вот пометка ошибочным решения, сделанного в полном соответствии с вопросом, свидетельствует о Вашей, извините, глупости. И, заодно, это сигнал с Вами дел в будущем не иметь.

Модераторы пометку Вашу снимут, а вот мнение о Вас останется.

В проекте код поместить на листе, где находятся данные.Записать числа в столбец, выделить заполненные ячейки, потом запустить данный код.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 iEnd Sub