Первое и последнее пол. значение элементов массива - VB

Узнай цену своей работы

Формулировка задачи:

У меня вышло нечто вот такое:
Но оно почему-то не считает сумму эл-тов массива и в новом массиве выдает нули. Дополнительный плюс в карму, если поможете избавиться от лишних циклов. Заранее спасибо !

Решение задачи: «Первое и последнее пол. значение элементов массива»

textual
Листинг программы
Sub Task(A() As Integer)
Dim flg As Boolean
    f% = 0
    l% = 0
    For i% = 1 To UBound(A, 1)
        If flg Then
           If A(i%) > 0 Then l% = A(i%)
        Else
           If A(i%) > 0 Then
              flg = True
              f% = A(i%)
           End If
        End If
    Next i%
    Debug.Print f%; " "; l%
End Sub

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


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

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

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