Записать алгоритм и программу определения разности - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д