Найти сумму отрицательных элементов массива - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы