В одномерном массиве, найти максимальный элемент массива - VB
Формулировка задачи:
В одномерном массиве, который складается с n элементов, найти:
-максимальный элемент массива;
-сумму элементов массива расположенных до последнего положительного элемента.
подскажите код программы
Решение задачи: «В одномерном массиве, найти максимальный элемент массива»
textual
Листинг программы
Option Explicit
Dim A() As Integer, i As Integer, j As Integer, n As Integer, m As Integer
Dim max As Integer, sum As Integer, b As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Cls 'Очищаем форму
n = InputBox("Vvedite n", , 10)
sum = 0
ReDim A(n) ' Размеры массивов
Print "Massiv A(n)"
For i = 1 To n
A(i) = Int(Rnd * 101 - 50) 'Заполняем массив случайными числами
Print A(i); vbTab;
Next i
max = A(1)
For i = 1 To n
If max < A(i) Then max = A(i): b = i
Next i
Print
Print "Максимальный элемент массива A (" & b & ") = " & max;
For i = 1 To n
If A(i) > 0 Then b = i
Next i
Print
Print "Последний положительный элемент массива A (" & b & ") = " & A(b);
For i = 1 To b - 1
sum = sum + A(i)
Next i
Print
Print "Сумма до последнeго положительного элемента массива A ="; sum
End Sub