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