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

Узнай цену своей работы

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

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

Решение задачи: «Записать алгоритм и программу определения разности»

textual
Листинг программы
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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

5   голосов , оценка 4.4 из 5
Похожие ответы