Матрица: Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив - VB
Формулировка задачи:
Подскажите пожалуйста, как это решается?
Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив С подряд с конца.
Заранее спасибо.
Решение задачи: «Матрица: Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив»
textual
Листинг программы
Form1.Cls Dim c%(), n%(), s%, k% s = InputBox("razmer massiva") ReDim n(s, s) 'zadem massiv Print "ishodny massiv" For i = 1 To s For j = 1 To s n(i, j) = Rnd(1) * 10 \ 1 - 5 Print n(i, j); " "; Next j Print Next i 'schitaem elementy Print "chislo elementov" For i = s - 1 To 1 Step -1 For j = s To i + 1 Step -1 If n(i, j) > 0 Then k = k + 1 Next j Next i Print k ReDim c(k) 'zapisyvaem massiv Print "konechny massiv" k = 1 For i = s - 1 To 1 Step -1 For j = s To i + 1 Step -1 If n(i, j) > 0 Then c(k) = n(i, j): Print c(k); " ";: k = k + 1 Next j Next i
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д