Определить в массиве разность между его заданными элементами - 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

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

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

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

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

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