Подсчитать произведение всех элементов находящихся в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д