Определить в массиве разность между его заданными элементами - VB

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

Дан двумерный массив размером n*m, заполненный случайными числами. Определить в нем разность между средним арифметическим элементов массива и средним арифметическим максимального и минимального элементов. Все ли тут правильно у меня ?
Dim a(50, 50) As Double
Private Sub Command1_Click()
n = Val(tex1)
m = Val(Text2)
Randomize
s = 0
s1 = 0
For i = n To m
For j = n To m
a(i, j) = Rnd * 100
Next
Next
For i = n To m
For j = n To m
If a(i, j) > Max Then Max = a(i, j)
If a(i, j) < Min Then Min = a(i, j)
Next
Next
s1 = s - (Max + Min) / 2
Picture1.Print s1
End Sub

Код к задаче: «Определить в массиве разность между его заданными элементами - VB»

textual
Option Explicit 'обязательное объявление переменных - помогает избежать многих ошибок
Option Base 1 'нижние индексы массивов будут равны 1 (по умолчанию 0)
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ