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