Написать программу, которая вычисляет среднее арифметическое элементов двумерного массива - VB
Формулировка задачи:
Написать программу, которая вычисляет среднее арифметическое элементов двумерного массива без учёта минимального и максимального элементов этого массива. Вывести исходную матрицу, минимальный и максимальный элементы, среднее арифметическое элементов.
Решение задачи: «Написать программу, которая вычисляет среднее арифметическое элементов двумерного массива»
textual
Листинг программы
Sub Main() Dim Arr(1 To 3, 1 To 4) As Double Arr(1, 1) = 1 Arr(1, 2) = 2 Arr(1, 3) = 3 Arr(1, 4) = 4 Arr(2, 1) = -1 Arr(2, 2) = -2 Arr(2, 3) = -3 Arr(2, 4) = -4 Arr(3, 1) = 11 Arr(3, 2) = 22 Arr(3, 3) = 33 Arr(3, 4) = 44 Avg Arr End Sub Sub Avg(V() As Double) n1% = UBound(V, 1) n2% = UBound(V, 2) aMax# = V(1, 1) aMin# = V(1, 1) nmax# = 1 nmin# = 1 S# = 0 For i% = 1 To n1% For j% = 1 To n2% S# = S# + V(i%, j%) If V(i%, j%) = aMax# Then nmax# = nmax# + 1 If V(i%, j%) = aMin# Then nmin# = nmin# + 1 If V(i%, j%) > aMax# Then aMax# = V(i%, j%) nmax# = 1 End If If V(i%, j%) < aMin# Then aMin# = V(i%, j%) nmin# = 1 End If Next j% Next i% S# = S# - aMax# * nmax# - aMin# * nmin# n# = n1% * n2% - nmax# * nmin# Debug.Print "ÑðåäГ*ГҐГҐ= "; S# / n# Debug.Print "ГЊГ*êñèìóì= "; aMax# Debug.Print "ГЊГЁГ*èìóì= "; aMin# End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д