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

@Super GT · Регистрация: 23.12.2012

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

"Дан двумерный массив:
1 2 3 4
5 6 7 8
9 1 2 3
4 5 6 7
Нужно найти отдельно сумму элементов 3-ей строки и 3-его столбца, потом первое разделить на второе, и в диалоговом окне вывести исходный массив, сумму искомых строки и столбца и результат деления."

Помогите с кодом!

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
Sub Zero()
 
Dim i, j, n, k, DelSum As Integer
Const m As Integer = 4 'размерность массива
Dim Mas(1 To m, 1 To m) As Integer
Dim Sum1, Sum2, S As String
 
'вводим массив
For i = 1 To m
For j = 1 To m
n = n + 1
Mas(i, j) = InputBox("Введите " & j & "-й элемент " & i & " -й строки")
Next j
Next i
 
For i = 1 To m
For j = 1 To m
S = S & Mas(i, j) & " ; "
Next j
S = S & Chr(13)
Next i
 
Sum1 = 0
For i = 3 To 3   '3-ая строка
For j = 1 To m
Sum1 = Sum1 + Mas(i, j)  'сумма элементов 3-ей строки
Next j
Next i
 
Sum2 = 0
For i = 1 To m
For j = 3 To 3     '3-ий столбец
Sum2 = Sum2 + Mas(i, j) 'сумма элементов 3-его столбца
Next i
 
DelSum = Sum1 / Sum2
 
MsgBox S & " , " & Summa1 & " , " & Summa2 & " , " & DelSum
End Sub

SoftIce · 11.07.2013, 14:19

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
Sub Zero()
    Dim Sum1 As Integer, Sum2 As Integer, DelSum As Single
    Dim i As Integer, j As Integer, m As Integer
    Const n As Integer = 4  ' размерность массива
    Dim Mas(1 To n, 1 To n) As Integer, S As String
 
    S = "Исходный массив" & vbCrLf
    'вводим массив
    For i = 1 To n
          For j = 1 To n
                m = m + 1: If m = 10 Then m = 1 'Это чтобы не заполнять массив вручную
                Mas(i, j) = InputBox("Введите  Mas (" & i & ", " & j & ")", , m)
                S = S & Mas(i, j) & vbTab
          Next j
          S = S & vbCrLf
    Next i
 
    'находим сумму третьей строки
    For i = 1 To n
            Sum1 = Sum1 + Mas(3, i)
    Next i
 
    'находим сумму третьего столбца
    For i = 1 To n
            Sum2 = Sum2 + Mas(i, 3)
    Next i
 
    'находим частное от деления Sum1 на Sum2
    DelSum = Sum1 / Sum2
 
    S = S & "Сумма элементов 3-ей строки " & Sum1 & vbCrLf
    S = S & "Сумма элементов 3-его cтолбца " & Sum2 & vbCrLf
    S = S & "Частное от деление сумм элементов " & DelSum
 
    MsgBox S
End Sub

@DemonFox · 25.10.2015, 09:22

А так не легче?

VB.NET
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
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim Sum1, Sum2, i, j As Integer, DelSum As Single
        Dim Mas(0 To 4, 0 To 4) As Integer, S As String
        S = "Исходный массив" & vbCrLf
        'вводим массив
        For i = 1 To 4
            For j = 1 To 4
                Mas(i, j) = (Rnd() * (4 - 1) + 1) 'Это чтобы не заполнять массив вручную
                S = S & Mas(i, j) & vbTab
            Next j
            S = S & vbCrLf
        Next i
        'находим сумму третьей строки
        For i = 1 To 4
            Sum1 = Sum1 + Mas(3, i)
        Next i
 
        'находим сумму третьего столбца
        For i = 1 To 4
            Sum2 = Sum2 + Mas(i, 3)
        Next i
 
        'находим сумму Sum1 на Sum2
        DelSum = Sum1 / Sum2
 
        S = S & "Сумма элементов 3-ей строки " & Sum1 & vbCrLf
        S = S & "Сумма элементов 3-его cтолбца " & Sum2 & vbCrLf
        S = S & "Частное элементов 3-ей строки и 3-его столбца " & DelSum
 
        MsgBox(S)
    End Sub

SoftIce · 25.10.2015, 10:09

Сообщение от DemonFox

А так не легче?

Чем Вы облегчили код?

Добавлено через 37 минут
Если заполнением случайными числами, то обращаю Ваше внимание, что массив из первого поста заполнен вовсе не случайно.

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

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

Решение