Найти сумму отрицательных элементов массива - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
