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