Разработать ИТ, позволяющую заполнить одмерный массив следующими элементами: первый элемент-сумма положительных элементов матрицы, - VB
Формулировка задачи:
Разработать ИТ, позволяющую заполнить одмерный массив следующими элементами: первый элемент-сумма положительных элементов матрицы, второй элемент-произведение отрицательных элементов матррицы, третий - количество элементов матрицы, имующих нулевые значения. Размерность массива произвольная.
Решение задачи: «Разработать ИТ, позволяющую заполнить одмерный массив следующими элементами: первый элемент-сумма положительных элементов матрицы,»
textual
Листинг программы
Option Base 1 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, m As Integer, n As Integer Dim a() As Integer, b() As Integer, hasNeg As Boolean m = InputBox("Введите количество строк матрицы", , 2) n = InputBox("Введите количество столбцов матрицы", , 3) ReDim a(m, n), b(3) For i = 1 To m For j = 1 To n a(i, j) = InputBox(" a ( " & i & " , " & j & " ) ", , 0) Next Next b(2) = 1 For i = 1 To m For j = 1 To n If a(i, j) > 0 Then b(1) = b(1) + a(i, j) ElseIf a(i, j) < 0 Then hasNeg = True b(2) = b(2) * a(i, j) Else b(3) = b(3) + 1 End If Next j Next i Print Chr(10); "сумма положительных"; b(1); vbLf; _ IIf(hasNeg, "произведение отрицательных " & b(2), "нет отрицательных"); vbLf; _ "количество нулевыx"; b(3) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д