Найти сумму максимальных членов двумерного массива - VB
Формулировка задачи:
Всем привет! Первый раз на таком форуме! Начал интересоваться программированием (подтолкнула учеба) и в целом прогресс есть, но много еще непонятного. Помогите,пожалуйста найти сумму максимальных значений массива! Все что я сам смог сделать это построил двумерный массив где N=6 (количество строк) M=8 (количество столбцов). Границы значений элементов массива от "-20" до "30". нашел само максимальное число, даже нашел их индексы и тем самым можно посмотреть сколько в каждом новом массиве максимальных членов. Но как посчитать сумму этих максимальных членов если их несколько не знаю, очень нуждаюсь в помощи более грамотных людей в этой области!
вот мой код:
скриншот того что получается у меня при нажатии на кнопку Вычислить один раз!
Буду очень признателен!
Решение задачи: «Найти сумму максимальных членов двумерного массива»
textual
Листинг программы
Dim am(50, 50) As Integer Private Sub Command1_Click() n = Val(Text1) m = Val(Text2) am_min = Val(Text3) am_max = Val(Text4) Picture1.Cls Picture2.Cls s = 0 u = 0 For i = 0 To n - 1 For j = 0 To m - 1 am(i, j) = am_min + Int(Rnd * (am_max - am_min)) stra = stra + Str(am(i, j)) Next List1.AddItem stra stra = "" Next List1.AddItem " " Max = Abs(am(1, 1)) For i = 0 To n - 1 For j = 0 To m - 1 If am(i, j) < 0 Then s = s + 1 If Abs(am(i, j)) > Max Then Max = Abs(am(i, j)) Next Next For i = 0 To n - 1 For j = 0 To m - 1 If am(i, j) = Max Then u = u + 1 Next Next Picture2.Print u * Max Picture1.Print s End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д