Разработать ИТ, позволяющую заполнить одмерный массив следующими элементами: первый элемент-сумма положительных элементов матрицы, - 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

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


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

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

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