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