Матрица: Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив

26.04.2013, 14:47. **Показов** 1307. **Ответов** 3

Подскажите пожалуйста, как это решается?
Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив С подряд с конца.
Заранее спасибо.

@Alex77755 · 26.04.2013, 22:06

Это решается пребором элементов массива циклом(по столбцам) в цикле(по строкам)
Проанализируй как изменяются номера строк R (с 1 до N-1. где N - размерность)
И столбцов C(c R+1 до N)

@sco43 · 27.04.2013, 11:32

Visual Basic

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

27.04.2013, 18:11

Огромное спасибо!

Jinjr123
		1
	Матрица: Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив 26.04.2013, 14:47. Показов 1307. Ответов 3 Метки нет (Все метки) Подскажите пожалуйста, как это решается? Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив С подряд с конца. Заранее спасибо.

@Alex77755 11476 / 3768 / 676 Регистрация: 13.02.2009 Сообщений: 11,126
	26.04.2013, 22:06	2
	Это решается пребором элементов массива циклом(по столбцам) в цикле(по строкам) Проанализируй как изменяются номера строк R (с 1 до N-1. где N - размерность) И столбцов C(c R+1 до N) Изображения 1

Опции темы

Матрица: Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив

Решение