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