В массиве из 20 элементов, найти 5 соседних элементов, сумма которых максимальна - VB

Узнай цену своей работы

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

Очень прошу помочь. Что не правильно? Условие: Дан массив из 20 элементов, найти 5 соседних элементов, сумма которых максимальна.

Решение задачи: «В массиве из 20 элементов, найти 5 соседних элементов, сумма которых максимальна»

textual
Листинг программы
Private Sub Form_Load()
Dim A(20) As Integer, i As Integer, S As Integer, Smax As Integer, Imax As Integer
Show
Randomize Timer
For i = 1 To 20
    A(i) = Int(Rnd * 100)
    Print A(i)
Next i
Print
For i = 1 To 5
    S = A(i) + S
Next i
Smax = S
Imax = 1
For i = 1 To 15
    S = S + A(i + 5) - A(i)
    If S > Smax Then Smax = S: Imax = i + 1
Next i
 
Print Smax, Imax
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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