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