Вывести номер столбца массива, содержащего максимальное количество положительных элементов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д