Матрица: Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив - 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

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы