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

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

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

Решение задачи: «Найти среднее арифметическое всех элементов массива»

textual
                            Листинг программы 
                        
 
                        
                          
                    
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

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

5 голосов , оценка 4.4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы