Вычислить порядковый номер числа, наиболее приближённого к среднему арифметическому - VB
Формулировка задачи:
Помогите решить задачки
1."Одномерные массивы":
Задана последовательность из N вещественных чисел. Вычислить порядковый номер числа, наиболее приближённого к среднему арифметическому максимального и минимального чисел данной последовательности.
2."Двумерные массивы":
Дан двухмерный массив А[1...m,1...N]. Написать программу построения одномерного массива B[1...m], элементы которого соответственно равны наименьшим из средних арифметических элементов строк.
Решение задачи: «Вычислить порядковый номер числа, наиболее приближённого к среднему арифметическому»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim arr() As Single, N As Integer, S As Single, diff As Integer, answer
- N = InputBox("n")
- ReDim arr(1 To N)
- answer = ""
- For i = 1 To N
- arr(i) = Int(100 * Rnd - 50)
- answer = answer & arr(i) & " "
- S = S + arr(i)
- Next i
- S = S / N
- MsgBox "SR=" & S
- MsgBox "arr : " & answer
- diff = Abs(arr(1) - S)
- answer = ""
- For i = 1 To N
- If Abs(arr(i) - S) < diff And Abs(arr(i) - S) <> 0 Then
- diff = Abs(arr(i) - S)
- answer = i
- End If
- Next i
- MsgBox answer
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
