В строках с отрицательным элементом матрицы на главной диагонали найти сумму элементов

@ГарриХалаган · Регистрация: 29.11.2011

Студворк — интернет-сервис помощи студентам

Условие

Пусть дана вещественная квадратная матрица порядка п. В строках с отрицательным элементом на главной диагонали найдите:
а) сумму элементов;
б) наибольший из элементов.

Помогите пожалуйста с задачей. Вообще потерялся, мозги кипят

@19vitek · 29.11.2011, 16:03

как вариант.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub nn()
Cells.Clear
k = Val(InputBox("Введите размер матрицы", , 4))
Randomize
For i = 1 To k
 For j = 1 To k
  Cells(i, j) = Int(Rnd * 100) - 50
 Next j
Next i
Max = -100
For i = 1 To k
  For j = 1 To k
   If i = j And Cells(i, j) < 0 Then
   Cells(i, k + 1) = Application.WorksheetFunction.Sum(Range(Cells(i, 1), Cells(i, k)))
   maxx = Application.WorksheetFunction.Max(Range(Cells(i, 1), Cells(i, k)))
   If maxx > Max Then Max = maxx
   End If
  Next j
  Next i
   MsgBox "max=" & Max
End Sub

@ГарриХалаган · 29.11.2011, 18:28 **[ТС]**

Спасибо

19vitek, мне бы для ворда ;-)

Нуждаюсь в срочной помощи. Отзовись, добрый самаритянин =)

@ГарриХалаган · 19.12.2011, 16:18 **[ТС]**

Спасайте люди

Добавлено через 3 часа 9 минут
Хэлп ми. препод топор на головой занёс

Добавлено через 31 минуту
Сделал решение с поиском наибольшего эл-та. Может кому пригодится

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
Dim v() As Integer, Max As Integer, i As Integer, j As Integer, sum As Integer
Private Sub CommandButton1_Click()
ListBox1.Clear
ReDim v(1 To TextBox1, 1 To TextBox2)
For i = 1 To TextBox1.Value
For j = 1 To TextBox2.Value
Randomize
v(i, j) = Round(Rnd() * 10 - 1)
Next j
Next i
ListBox1.ColumnCount = TextBox1.Value
 
ListBox1.List() = v()
End Sub
 
Private Sub CommandButton2_Click()
Max = v(1, 1)
For i = 1 To TextBox1
 For j = 1 To TextBox2
If v(i, j) > Max Then Max = v(i, j)
Next j
 Next i
 MsgBox ("Максимальный элемент: " & Max)
End Sub

Новые блоги и статьи Все статьи Все блоги /
1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения 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; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .

@ГарриХалаган 0 / 0 / 0 Регистрация: 29.11.2011 Сообщений: 19

	В строках с отрицательным элементом матрицы на главной диагонали найти сумму элементов 29.11.2011, 14:35. Показов 1672. Ответов 3 Метки нет (Все метки) Условие Пусть дана вещественная квадратная матрица порядка п. В строках с отрицательным элементом на главной диагонали найдите: а) сумму элементов; б) наибольший из элементов. Помогите пожалуйста с задачей. Вообще потерялся, мозги кипят 0

@ГарриХалаган 0 / 0 / 0 Регистрация: 29.11.2011 Сообщений: 19
	29.11.2011, 18:28 [ТС]
	Спасибо 19vitek, мне бы для ворда ;-) Нуждаюсь в срочной помощи. Отзовись, добрый самаритянин =) 0