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