Dim p As Double, i As Integer, j As Integer, s As Single

'заполнение динамического массива

i = 1

ReDim a(i)

a(i) = Sqr (i)

Do While a(i) <= k

i = i + 1

ReDim Preserve a(i)

a(i) = Sqr (i)

Loop

'отсечение последнего элемента массива

'т.к. сначала ищется элемент, затем сравнивается с k

'затем происходит выход из цикла

ReDim Preserve a(i - 1)

'печать массива

For j = 1 To i - 1

Cells (1, j) = a(j)

Next j

'поиск суммы и произведения элементов массива

p = 1: s = 0

For j = 1 To i - 1

p = p * a(j)

s = s + a(j)

Next j

Cells (2, 1) = "Сумма элементов = " & s

Cells (3, 1) = "Произведение элементов = " & p

Cells (4, 1) = "Среднее значение элементов = " & s / (i - 1)

Cells (5, 1) = "Количество элементов = " & i - 1

End Sub

Результат выполнения программы:

Пример 8. Дан массив А (n, m). Составить программу для подсчета количества положительных элементов массива в каждой строке и количество отрицательных элементов в каждом столбце.

Поскольку необходимо получить количество отрицательных элементов в столбцах, то после ввода значений элементов массива, на этапе подсчета отрицательных элементов внешний цикл открывается по индексу столбца, а во внутреннем цикле (индекс по строке) перебираются все элементы сначала первого столбца, затем второго и т.д. При этом определяется количество отрицательных элементов в каждом столбце.

Sub primer_8()

Randomize Timer

Dim a() As Integer

Не нашли, что искали? Воспользуйтесь поиском: