Вывести номер столбца массива, содержащего максимальное количество положительных элементов - VB

Узнай цену своей работы

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

Создать приложение, выводящее номер первого столбца массива размером 5х10, содержащего максимальное количество положительных элементов. Если таких столбцов нет, то вывести 0. Массив заполняется случайными числами. Результат выводится при нажатии командной кнопки. вот что я навоял но не смг вывести массив матрицей что не дает проверить правильность выполнения условия, да и ошибка непонятная мне.

Решение задачи: «Вывести номер столбца массива, содержащего максимальное количество положительных элементов»

textual
Листинг программы
Dim e(10) As Integer
Dim a(1 To 5, 1 To 10) As Integer
 
Private Sub Command1_Click()
For i = 1 To 5
For j = 1 To 10
a(i, j) = Int(Rnd * 1000) - 500
Picture1.Print a(i, j); vbTab;
Next
Picture1.Print
Next
For j = 1 To 10
s = 0
For i = 1 To 5
If a(i, j) > 0 Then s = s + 1
Next
e(j) = s
Next
Max = e(1)
el = 1
For i = 2 To 10
If Max < e(i) Then Max = e(i): el = i:
Next
Picture1.Print
Picture1.Print el
End Sub
 
Private Sub Command2_Click()
End
End Sub

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


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

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

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