Записать алгоритм и программу определения разности - 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