Найти среднее арифметическое элементов массива и включить найденное значение в середину массива

@Alekt25 · Регистрация: 09.10.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте!
Помогите, пожалуйста, решить информатику а то отчислят из универа. С VBA вообще никогда не сталкивался, а времени разобраться нету...
Вот задания:
1. Программирование циклических процессов с использованием цикла с параметром: "Дан одномерный массив. Найти среднее арифметическое элементов массива и включить найденное значение в середину массива."
Что-то написал по нему на основе примеров, но разобраться что к чему нем могу:

Visual Basic

Dim A() As Integer
Dim N As Integer
Dim sred As Integer
 
Private Sub Command1_Click()
Dim i As Integer
Dim temp As Integer ' сумма элементов массива
Dim z As Integer ' средний элемент матрицы, который необходимо заменить
sred = 0
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)
   Cells(5, i) = A(i)
 Next
sred = temp / N
Cells(2, 1) = sred
 For i = 1 To N
  z = A(i) / 2
    If z = A(i) Then z = A(i)
 Next i
  A(N) = sred
 Cells(2, ) = A(i)
 MsgBox "Готово"
End Sub

2. Составление пользовательских процедур и функций: "Вычислить среднее арифметическое значение каждой строки матрицы A(m,n). Вычисления оформить в виде процедуры или функции"

3. Программирование разветвляющихся структур: "Вычислить приблизительно площадь фигуры, ограниченной функцией у= х2 и прямой у = 5 + х/2, разбивая отрезок изменения х на n частей и суммируя площади n прямоугольников с основанием, равным 1/n отрезка, и высотой, равной значению функции в середине основания."

4. Программирование циклических процессов с использованием итерационного цикла: "При условии идеального перемешивания концентрация хлорной извести изменяется по закону с = c0-e-qt/v, где t - время, с0 - начальная концентрация. Определить, через какое время концентрация хлорной извести достигнет безопасной для человека величины 0,1 г/л. Задачу решить при q = 150 м3/ч, v = 10000 л, с0 = 10 г/л."

Заранее, благодарен!

@~~Апострофф~~ · 11.11.2013, 07:10

Как запостить тему, чтобы не получить ответ

@~~Апострофф~~ Заблокирован
	11.11.2013, 07:10	2
	Как запостить тему, чтобы не получить ответ 0