Найти номера всех отрицательных элементов - VB
Формулировка задачи:
Целочисленный массив имеет разномерность n. Число n ввести с клавиатуры. Заполнить массив случайными числами в диапазоне [-20; 20]. Найти номера всех отрицательных элементов. Если таких элементов нет, то сообьщить об этом.
Решение задачи: «Найти номера всех отрицательных элементов»
textual
Листинг программы
Sub Task()
Dim A() As integer
n%=InputBox("Задайте размерность")
Redim A(1 to n, 1 to n) as integer
Randomize
For i%=1 to n%
For j%=1 to n%
A(i%,j%)=Rnd()*40-20
Next J%
Next i%
S%=0
For i%=1 to n%
For j%=1 to n%
if A(i%,j%) < 0 then S%=S%+1
Next j%
Next i%
If S% > 0 then
MsgBox "Отриц. элементов: "+Cstr(S%)
else
MsgBox "Отриц. элементов нет"
end if
End Sub