Подсчитать произведение всех элементов находящихся в 5-й строке матрицы - VB

Узнай цену своей работы

Формулировка задачи:

Всем привет.Помогите пожалуйста. Занести введенные с клавиатуры числа в массив А(5x5) следующим образом: а) пять первых введенных числа - по главной диагонали,остальные по побочной диагонали. б) подсчитать произведение всех элементов находящихся в 5-й строке.
Можно закрывать,сам разобрался.

Решение задачи: «Подсчитать произведение всех элементов находящихся в 5-й строке матрицы»

textual
Листинг программы
'Занести введенные с клавиатуры числа в массив А(5x5) следующим образом:
'а) пять первых введенных числа - по главной диагонали,остальные по побочной диагонали.
'б) подсчитать произведение всех элементов находящихся в 5-й строке..
 
Private Sub Form_Load()
Dim mas(5, 5) As Integer
Dim i As Byte, j As Byte, k As Byte, m As Byte, r As Byte, t As Byte
Dim proizv As Integer
 
proizv = 1
k = 0
 
For i = 1 To 5
    k = k + 1
    mas(k, k) = InputBox("Введите " & i & "-й элемент массива:")
Next i
 
m = k
For i = 1 To 5
    For j = 1 To 5
        If i = 6 - j And i <> j Then
            m = m + 1
            mas(i, j) = InputBox("Введите " & m & "-й элемент массива:")
        End If
    Next j
Next i
 
 
r = m
For i = 1 To 5
    For j = 1 To 5
        If i <> j And i <> 6 - j Then
            r = r + 1
            mas(i, j) = InputBox("Введите " & r & "-й элемент массива:")
        End If
    Next j
Next i
 
For i = 1 To 5
    For j = 1 To 5
        Print mas(i, j);
        If i = 5 Then proizv = proizv * mas(i, j)
    Next j
    Print
Next i
 
Print "произведение всех элементов находящихся в 5-й строке = " & proizv
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.833 из 5
Похожие ответы