Найти сумму элементов массива, расположенных после максимального элемента - VB (170602)

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

Помогите пожалуйста с програм. кодом. В прошлой теме код был немного не тот, т.к. он для Visual Basic 6.0, а мне нужен код для Visual Basic Studio 2008 Ввести одномерный массив x = {-1.5, 0, 0.8, 2.2, 3, 0.5, 0.1}. Переписать элементы массива, принадлежащие отрезку [-1;1], в массив y и найти сумму элементов, расположенных после максимального элемента в массиве y. код по программе Visual Basic Studio 2008

Код к задаче: «Найти сумму элементов массива, расположенных после максимального элемента - VB (170602)»

textual
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim X() As Double = {-1.5, 0, 0.8, 2.2, 3, 0.5, 0.1}
        Dim Y() As Double
        Dim N, B As Long, Max As Double
        Dim Sum As Double
        For N = 0 To X.GetUpperBound(0)
            If X(N) >= -1 And X(N) <= 1 Then
                If Y Is Nothing Then ReDim Y(0) Else ReDim Preserve Y(Y.Count)
                Y(Y.Count - 1) = X(N)
            End If
        Next
        Max = Y(0)
        For N = 1 To Y.GetUpperBound(0)
            If Y(N) > Max Then Max = Y(N) : B = N
        Next
        Sum = 0
        For N = B To Y.GetUpperBound(0)
            Sum = Sum + Y(N)
        Next
        MessageBox.Show("Максимальный элемент = " & Max & vbNewLine & _
                        "Индекс максимального элемента = " & B & vbNewLine & _
                        "Сумма = " & Sum)
    End Sub
End Class

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

9   голосов, оценка 4.222 из 5


СОХРАНИТЬ ССЫЛКУ