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