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