Dim n As Integer, m As Integer, massiv As String

Dim i As Integer, j As Integer

Dim str As String, stolb As String

Dim k_pol As Integer, k_otr As Integer

n = InputBox ("Количество строк равно", "Запрос 1 из 2")

m = InputBox ("Количество столбцов равно", "Запрос 2 из 2")

massiv = "": str = "": stolb = ""

ReDim a(n, m) As Integer

'заполнение массива случайными целыми числами

For i = 1 To n

For j = 1 To m

a(i, j) = 50 - Int (Rnd () * 100)

massiv = massiv & a(i, j) & Chr (9)

Next j

massiv = massiv & Chr (13)

Next i

'инициализация счетчиков положительных и отрицательных

'элементов

k_pol = 0: k_otr = 0

'подсчет положительных элементов в каждой строке

For i = 1 To n

k_pol = 0

For j = 1 To m

If a(i, j) >= 0 Then k_pol = k_pol + 1

Next j

str = str & k_pol & Chr (9)

Next i

'подсчет отрицательных элементов в каждом столбце

For j = 1 To m

k_otr = 0

For i = 1 To n

If a(i, j) < 0 Then k_otr = k_otr + 1:

Next i

stolb = stolb & k_otr & Chr (9)

Next j

'Команда MsgBox... записывается в редакторе VB в одну строку

MsgBox "Исходный массив:" & Chr (13) & massiv & Chr (13) & Chr (13) & "Количество положительных элементов по строкам:" & Chr (13) & str & Chr (13) & Chr (13) & "Количество отрицательных элементов по столбцам:" & Chr (13) & stolb,, "Ответ"

End Sub

Результат выполнения программы:

Пример 9. Ввести массив А (n, m). Найти номер столбца, сумма элементов которого минимальна.

Sub primer_9()

Randomize Timer

Dim a() As Integer

Не нашли, что искали? Воспользуйтесь поиском: