В одномерном массиве, найти максимальный элемент массива - 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

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

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