Записать алгоритм и программу определения разности - VB

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

Записать алгоритм и программу определения разности между средним арифметическим всех элементов массива и средним арифметических его максимального и минимального элемента. Массив целых чисел задать с помощью генератора случайных чисел.Написать программу.


textual

Код к задаче: «Записать алгоритм и программу определения разности - VB»

Option Explicit
Dim N%, i%, S!, max!, min!, SA!, SAm!
 
Private Sub cmdD_Click()
    Cls
    Randomize Timer
    N = Val(txtN.Text)
    ReDim a(N) As Integer
    
    For i = 1 To N
        a(i) = 80 * Rnd
    Next
    
    S = 0
    For i = 1 To N
        S = S + a(i)
    Next
    SA = S / N
    min = a(1)
    max = min
    
    For i = 1 To N
        If min > a(i) Then min = a(i)
        If max < a(i) Then max = a(i)
    Next
    SAm = (min + max) / 2
    
    Print "SA - SAm ="; SA - SAm
    Print
    For i = 1 To N
        Print Format(a(i), " 00")
    Next
End Sub
Эта работа вам не подошла?

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


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

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

Источник