Найти среднее арифметическое всех элементов массива

@thelawww · Регистрация: 23.10.2015

Author24 — интернет-сервис помощи студентам

Visual Basic

Dim M(4, 4) As Integer
 
Private Sub Form_Load()
AutoRedraw = True
For i = 1 To 4
For j = 1 To 4
    M(i, j) = Fix(Rnd * 11)
Next j
Next i
For i = 0 To 4
For j = 0 To 4
If M(i, j) > 0 Then
   n = n + 1
   result = result + M(i, j)
End If
  Next j
  Next i
  
result = result / n
 
 
For i = 1 To 4
For j = 1 To 4
    CurrentX = i * 500
    CurrentY = 270 * j + 200
    Print M(i, j)
Next j
Next i
End Sub

не как не получается((
Составить программу решения следующей задачи:
Создать одномерный целочисленный массив M (4,4). Заполнить создан массив случайными целыми числами в диапазоне от 0 до 10. Найти среднее арифметическое всех элементов массива, округлить его до целого и добавить к каждому элементу массива. Вывести полученный массив на экран в виде матрицы

~~Shersh~~ · 18.01.2016, 14:33

Visual Basic

Dim M(1to 4,1to 4) As Integer,result AS LONG
 
Private Sub Form_Load()
AutoRedraw = True
For i = 1 To 4
  For j = 1 To 4
    M(i, j) = Fix(Rnd * 11)
  Next j
Next i
For i = 1 To 4
  For j = 1 To 4
      result = result + M(i, j)
  Next j
Next i
  
result = result /16
 
For i = 1 To 4
  For j = 1 To 4
    CurrentX = i * 500
    CurrentY = 270 * j + 200
    M(i, j)=M(i, j)+result 
    Print M(i, j)
  Next j
Next i
End Sub

	18.01.2016, 14:33

Найти среднее арифметическое всех элементов массива

Решение