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

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

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

не как не получается(( Составить программу решения следующей задачи: Создать одномерный целочисленный массив 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
Похожие ответы