помогите решить задачу с одномерными массивами VBA
помогите решить хотя бы под одной буквой Даны целые числа a1, a2, … Известно, что a1 > 0 и что среди a2,a3,… есть хотя бы одно отрицательное число. Пусть a1,…,an – члены данной последовательности, предшествующие первому отрицательному члену (n заранее неизвестно). Получить:
a) max (а1^2, …, аn^2 );б) min (a1+a2, a2+a3, …,an-1+an) очень прошу помогите я пробовала решить с максимумом вот что вышло Sub mac1() Dim A() As Integer, n As Byte, i As Integer, r As real n = InputBox("n") ReDim A(n) For i = 1 To n A(i) = InputBox("A(i)") Next i Amax = A(1) ^ 2: k = 1 For i = 2 To n If A(i) > max Then max = A(i) ^ 2: k = i Next i MsgBox "max=" & r End Sub
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения