Задан массив из n вещественных чисел {yi} i=1,n (n<=15) Вычислить элементы нового массива {zi) по заданным правилам : zi= yi^1/2 если уі>0 и і четное. уi в противном случае. Нужен полный текст программы . Vba excel
Задан массив из n вещественных чисел {yi} i=1,n (n<=15) Вычислить элементы нового массива {zi) по заданным правилам : zi= yi^1/2 если уі>0 и і четное. уi в противном случае. Нужен полный текст программы . Vba excel
Похожие вопросы
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Sub CalculateNewArray()
Dim yArray() As DoubleDim n As Integer
n = InputBox("Enter the number of elements in the array (n<=15)")
ReDim yArray(1 To n)
Dim zArray() As Double
ReDim zArray(1 To n)
Dim i As Integer
For i = 1 To n
yArray(i) = InputBox("Enter element " & i & " of the array")
If yArray(i) > 0 And i Mod 2 = 0 Then
zArray(i) = Sqr(yArray(i))
Else
zArray(i) = yArray(i)
End If
Next i
MsgBox "Original Array: " & Join(yArray, ", ")
MsgBox "New Array: " & Join(zArray, ", ")
End Sub