Найти произведение и количество отрицательных элементов матрицы В размерности m×n - VB

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

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

Найти произведение и количество отрицательных элементов матрицы В размерности m×n. помогите, пожалуйстааа написать программу.. )))

Решение задачи: «Найти произведение и количество отрицательных элементов матрицы В размерности m×n»

textual
Листинг программы
Sub Arina01()
    Dim a(), i&, j&, n%, m%, s#, f#, k%
    
'--------------------
    ActiveSheet.UsedRange.EntireRow.Delete
    
    'вводим данные
    On Error Resume Next
    n = Int(InputBox("Введите количество строк", "Ввод данных", 6))
    m = Int(InputBox("Введите количество столцов", "Ввод данных", 4))
    If Err Then
        Err.Clear
        MsgBox "Введите целое число от 2 до 10!", vbInformation
        Exit Sub
    End If
    
    'наполняем массив случайными числами от 1 до 20
    ReDim a(1 To n, 1 To m)
    Randomize
    For i = 1 To n
        For j = 1 To m
            a(i, j) = Int(20 * Rnd) + (-5)
        Next
    Next
    Cells(1, 1).Resize(n, m) = a
    k = 0: f = 1: s = 0
    For i = 1 To n
        For j = 1 To m
            If a(i, j) < 0 Then k = k + 1
            If a(i, j) < 0 Then f = f * a(i, j)
            If a(i, j) < 0 Then s = s + a(i, j)
        Next
    Next
    Cells(1, 1).Resize(n, m) = a
    
    Cells(n + 2, 5) = k
    Cells(n + 2, 1) = "Количество отрицательных эл-в  k = "
    Cells(n + 4, 5) = f
    Cells(n + 4, 1) = "Произведение отрицательных эл-в  f = "
    Cells(n + 6, 5) = s
    Cells(n + 6, 1) = "Сумма отрицательных элементов  s = "
    
    'поздравлялка
    Beep
    MsgBox "Какая ты умница!"
End Sub

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


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

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

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