Найти сумму максимальных членов двумерного массива - 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

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


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

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

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