Найти сумму элементов столбца и строки матрицы, на пересечении которых находится максимальный элемент матрицы

@zxxrc19 · Регистрация: 28.12.2016

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

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

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Private Sub cmdb2_Click()
Dim K As Long
Dim R As Long
Dim M As Long, N As Long
 Dim i As Long, j As Long
 Dim sum As Long, sum1 As Long, sum2 As Long
 
 Cells.Clear
    M = txt1.Value
    N = txt2.Value
Dim B() As Double
ReDim B(1 To M, 1 To N)
For i = 1 To M
  For j = 1 To N
   Cells(i, j) = Int((-10 - 10 + 1) * Rnd + 10)
  Next j
Next i
 
Max = Cells(1, 1)
For i = 1 To M
  For j = 1 To N
   If Cells(i, j) >= Max Then
      Max = Cells(i, j): jMax = j
      End If
    Next
Next i
 
Cells(N + 2, 5) = Max
Cells(N + 2, 1) = " Максимальный элемент: Max = "
 
K = 0: R = 0: sum2 = 0: sum = 0: sum1 = 0:
For i = 1 To M
  For j = 1 To N
   If Cells(i, j) = Max Then
      K = i
      R = j
    End If
  Next j
Next i
 For i = 1 To M
sum = sum + Cells(i, j)
For j = 1 To N
      sum1 = sum1 + Cells(i, j)
      Next j
      Next i
      sum2 = sum + sum1
 
Cells(N + 3, 5) = K
Cells(N + 3, 1) = " строка макс элемента: i = "
Cells(N + 4, 5) = R
Cells(N + 4, 1) = " столбец макс элемента: j = "
 
 
Cells(N + 5, 5) = sum2
Cells(N + 5, 1) = " сумма элементов:  = "
Cells(N + 6, 5) = sum
Cells(N + 6, 1) = " сумма элементов строк: i = "
Cells(N + 7, 5) = sum1
Cells(N + 7, 1) = " сумма элементов столбцов: j = "
 
 End Sub

@Vlad999 · 08.11.2018, 09:20

вариант

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
For i = 1 To M
  For j = 1 To N
   If Cells(i, j) >= Max Then
      Max = Cells(i, j): jMax = j: iMax = i
      End If
    Next
Next i
 
Cells(N + 2, 5) = Max
Cells(N + 2, 1) = " Максимальный элемент: Max = "
 
K = 0: R = 0: sum2 = 0: sum = 0: sum1 = 0:
For i = 1 To M
  sum1 = sum1 + Cells(i, jMax)
next  
For j = 1 To N
   sum = sum + Cells(iMax, j)
Next

@zxxrc19 · 08.11.2018, 23:36 **[ТС]**

еще в этом задании надо посчитать сумму элементов до последнего положительного эллемента. сделал так, но считает криво

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
sump = 0: sumpi = 0:   sumpj = 0
For i = 1 To M
  For j = 1 To N
     If Cells(i, j) >= 0 Then
      pol = Cells(i, j): jpol = j: ipol = i
      End If
      Next
Next i
 
For i = 1 To ipol
   sumpi = sumpi + Cells(i, j)
     For j = 1 To jpol
      sumpj = sumpj + Cells(i, j)
    Next
Next i
 
sump = sumpi + sumpj - pol
 
Cells(N + 11, 5) = sump
Cells(N + 11, 1) = " summa el do last pologitelnogo :  = "
 
Cells(N + 17, 5) = pol
Cells(N + 17, 1) = " pologitel el:  = "

Новые блоги и статьи Все статьи Все блоги /
Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .	Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .
Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .	Цепочки методов в C# с Fluent API UnmanagedCoder 24.04.2025 Современное программирование — это не только решение функциональных задач, но и создание кода, который удобно поддерживать, расширять и читать. Цепочки методов и Fluent-синтаксис в C# стали мощным. . .	Мульти-тенантные БД с PostgreSQL Row Security Codd 23.04.2025 Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .

Опции темы