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

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

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

                    Листинг программы
                
 
                        
                          
                    
Private Sub Form_Load()
Dim A(20) As Integer, i As Integer, S As Integer, d As Integer, f As Integer, k As Integer, S1 As Integer, S2 As Integer, S3 As Integer, max As Integer
Randomize Timer
For i = 1 To 20
A(i) = Int(Rnd * 100)
Print A(i)
Next i
Print
S = 0
For i = 1 To 5
S = A(i) + S
Next i
For k = 6 To 11
For i = 1 To 5
S1 = S + A(k) - A(i)
Next k
Next i
For f = 11 To 15
For k = 6 To 11
S2 = S1 + A(f) - A(k)
Next f
Next k
For d = 16 To 20
For f = 11 To 15
S3 = S2 + A(d) - A(f)
Next d
Next f
max = S
If S1 > S Then max = S1
If S2 > S1 Then max = S2
If S3 > S2 Then max = S3
End Sub

Решение задачи: «В массиве из 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

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

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

Похожие ответы