Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
Jinjr123

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

26.04.2013, 14:47. Показов 1460. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Подскажите пожалуйста, как это решается?
Подсчитать число положительных элементов, лежащих выше побочной диагонали и записать их в массив С подряд с конца.
Заранее спасибо.
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
26.04.2013, 14:47
Ответы с готовыми решениями:

Найти количество положительных чисел среди элементов, лежащих ниже побочной диагонали
Private Sub Command1_Click() Dim A() As Single, N As Integer Dim I%, J%, K%, As Single Dim T As Integer N = InputBox("введите число...

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

Найти количество положительных элементов матрицы, лежащих выше побочной диагонали.
Написать программу, которая создает динамическую матрицу размерности , элементы матрицы А – целые числа, заданные случайным образом. Найти...

3
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
26.04.2013, 22:06
Это решается пребором элементов массива циклом(по столбцам) в цикле(по строкам)
Проанализируй как изменяются номера строк R (с 1 до N-1. где N - размерность)
И столбцов C(c R+1 до N)
Изображения
 
1
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
27.04.2013, 11:32
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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
1
Jinjr123
27.04.2013, 18:11
Огромное спасибо!
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
27.04.2013, 18:11
Помогаю со студенческими работами здесь

Среднее арифметическое положительных элементов, лежащих выше побочной диагонали матрицы
Кто может проверить,правильно ли выполнена задача?Условие-Вычислить среднее арифметическое положительных чисел, лежащих выше побочной...

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

В матрице n-го порядка найти сумму элеметнов, лежащих выше побочной диагонали, и произведение элементов лежащих ниже главной диагонали
В матрице n-го порядка найти сумму элеметнов, лежащих выше побочной диагонали, и произведение элементов лежащих ниже главной диагонали....

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения
anaschu 22.03.2026
e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе
Maks 22.03.2026
Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .
Как я обхитрил таблицу Word
Alexander-7 21.03.2026
Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .
Krabik - рыболовный бот для WoW 3.3.5a
AmbA 21.03.2026
без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .
1С: Программный отбор элементов справочника по значению перечисления
Maks 21.03.2026
Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .
Переходник USB-CAN-GPIO
Eddy_Em 20.03.2026
Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого
Argus19 18.03.2026
Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++
8Observer8 17.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru