End Sub

End If

Else

Next i

End If

End If

Next i

Dim A(50) As Integer

Dim PR As Double, SA As Double

Dim K As Integer, N As Integer

Dim i As Integer, S As Integer

N = Val(InputBox("Введите N"))

S = 0

PR = 1

K = 0

For i = 1 To N

A(i) = Cells(1, i)

For i = 1 To N

If A(i) mod 2 = 0 Then

S = S + A(i) ‘ вычисление суммы и

K = K + 1 ‘ количества четных элементов

If A(i) mod 2 < > 0 Then

PR = PR * A(i) ‘ вычисление произведения нечетных элементов

MsgBox("PR=" & PR)

MsgBox("S=" & S & " K=" & K)

If K < > 0 Then

SA = S / K ‘ вычисление среднего арифметического

MsgBox("SA=" & SA)

MsgBox("четных элементов нет")

При вычислении минимального или максимального элементов в одномерном массиве должны выполняться следующие условия:

Y(i), если Y(i) > Max;

Max =

Max, если Y(i) £ Max.

Y(i), если Y(i) < Min;

Min =

Min, если Y(i) ³ Min.

За первоначальное значение максимального элемента можно принять очень маленькое число или первый элемент массива, а за первоначальное значение минимального элемента – очень большое число или первый элемент массива, т.е., например, если массив состоит из целых чисел, то

Max = – 32000 или Max = Y(1),

Min = 32000 или Min = Y(1).

Задача 2. Прочитать с рабочего листа Excel одномерный массив. Вычислить минимальный и максимальный элементы этого массива и поменять их местами. Новый массив поместить на тот же лист ниже первого. Минимальный и максимальный элементы также напечатать на рабочем листе.

Sub PR17()

Дата добавления: 2014-01-03