Найти среднее арифметическое значение массива - 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

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


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

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

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