Evangellion
Нужно создать массив размера M на N(M и N задаются пользователем), вывести его и число отрицательных значений в нём. Сделать желательно до завтра(зачёт, а задача как назло по самой незнакомой теме попалась). Заранее благодарен всем откликнувшимся 😊
-Al-
Наверное поздно помогу, но мало ли )
Sub x1()
N = 5
M = 5
Count = 0
ReDim Mass(N, M)
'Заполним массив случайными числами
For i = 0 To N
For j = 0 To M
Mass(i, j) = Int((10 * Rnd) - 5)
Next j
Next i
For i = 0 To N
For j = 0 To M
If Mass(i, j) < 0 Then
Count = Count + 1
End If
strMass = strMass & "Mass[" & i & ", " & j & "]=" & Mass(i, j) & "; "
Next j
Next i
MsgBox ("Количество отрицательных элементов массива равно " & Count)
MsgBox ("Элементы массива: " & strMass)
End Sub