Найдите количество элементов матрицы, больших среднего арифметического всех её элементов - VB

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

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

Дана матрица A(N, M). Найдите количество элементов этой матрицы, больших среднего арифметического всех её элементов. код паскаля

Решение задачи: «Найдите количество элементов матрицы, больших среднего арифметического всех её элементов»

textual
Листинг программы
Option Explicit
Dim a() As Integer, n, m As Integer, sr, srr As Single
Private Sub Command1_Click()
Dim i, z As Integer, j As Integer
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите число строк", , 10)
n = InputBox("Введите число столбцов", , 10)
ReDim a(1 To m, 1 To n) ' Размеры матрицы А -  m-строк, n-столбцов
For i = 1 To m
  For j = 1 To n
      a(i, j) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами
      Print a(i, j); vbTab;
  Next j
  Print
Next i
 
sr = 0
For i = 1 To m
    For j = 1 To n
        sr = sr + a(i, j)
    Next j
 Next i
Print
 
srr = sr / (n * m) ' находим средний
Print "Среднее арифметическое "; srr
 
z = 0
For i = 1 To m
    For j = 1 To n
        If a(i, j) > srr Then z = z + 1 ' считаем кол-во элеметов больших среднего
    Next j
  Next
Print "Количество элементов больших среднего арифметического"; z
End Sub

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


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

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

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