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

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

Доброго времени суток. Ребята помогите мне пожалуйста!!! 1.Нужно найти в массиве две строки, сумма элементов которых максимальна и минимальна. 2.Вывести на форму сумму элементов максимальной строки. 3.Вывести на форму сумму элементов минимальной строки. 4.На форме вывести весь массив, синим цветом выделить максимальную строку а красным минимальную. Ребята очень прошу помогите плизз!!!

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Load()
AutoRedraw = True
ForeColor = 255& * 65536
Dim a(1 To 10, 1 To 5)
Randomize
Max = 0
Min = 2147483647
For r = 1 To 10
  s = 0
  For c = 1 To 5
    a(r, c) = Int(Rnd * 100)
    s = s + a(r, c)
  Next c
  If s > Max Then Max = s: rmax = r
  If s < Min Then Min = s: rmin = r
Next r
 
For r = 1 To 10
  Select Case r
    Case rmin: ForeColor = 255&: Print Min,
    Case rmax: ForeColor = 255& * 65536: Print Max,
    Case Else: ForeColor = 0: Print ,
  End Select
  For c = 1 To 5
    Print a(r, c),
  Next c
  Print
Next r
 
End Sub

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

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

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

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

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