Найти среднее арифметическое значение массива - VB
Формулировка задачи:
Всем привет!
Вот дали задание.Помогите решить,желательно с объяснениями.Мне с моими мозгами такое неосилить
1.Ввести массив А(N). Найти среднее арифметическое значение массива.Все элементы массива увеличить на среднее арифметическое.Вывести преобразованный массив
2.Ввести массив А(N). Найти минимальный элемент массива.Последний элемент массива заменить на минимальный.Вывести полученный массив.
3.Ввести массив А(N). Найти сумму элементов массива.Четные элементы массива увеличть на сумму.Вывести полученный массив.
4.Ввести массив А(N) Найти найти произведение четных элементов массива,сумму нечетных элементов,разность произведения и суммы.Вывести все результаты
Решение задачи: «Найти среднее арифметическое значение массива»
textual
Листинг программы
Dim A() As Integer Dim N As Integer Dim sred As Integer Private Sub Command1_Click() Dim i As Integer Dim temp As Integer sred = 0 Cls N = InputBox("Введите размер масcива A(N)") ReDim A(1 To N) For i = 1 To N A(i) = InputBox("Введите значение A" + Str(i)) temp = temp + A(i) Next sred = temp / N Print "Среднее арифметическое = "; sred For i = 1 To N A(i) = A(i) + sred Print "A" + Str(i) + " "; A(i) Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д