Найти сумму отрицательных элементов массива - VB (61534)
Формулировка задачи:
Заполнить массив из 25 элементов членами последовательности (а1=0, а2=4, ..., а(n)= a(n-1)-3a(n-2) и посчитать сумму отрицательных элементов.
Нужен код
Решение задачи: «Найти сумму отрицательных элементов массива»
textual
Листинг программы
Sub task() Dim Arr(1 to 25) As long Arr(2)=4 For i%=3 to 25 Arr(i%)=Arr(i%-1)-3*Arr(i%-2) If Arr(i%) < 0 then sum_neg&=sum_neg&+Arr(i%) Next i% Debug.Print sum_neg& End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д