End Sub

Next i

Next i

End If

End If

Next i

Dim Min As Integer, Max As Integer, IMin As Integer, IMax As Integer

Dim i As Integer, R As Integer

Dim A(10) As Integer

For i = 1 To 10

A(i) = Cells(1, i) ‘ ввод массива

Min = 32000: Max = –32000

For i = 1 To 10

If A(i) > Max Then

Max = A(i) ‘ вычисление максимума

IMax = i ‘ и его номера

If A(i) < Min Then

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

IMin = i ‘ и его номера

Cells(2, 1) = "Max=": Cells(2, 2) = Max

Cells(2, 4) = "IMax": Cells(2, 5) = IMax

Cells(3, 1) = "Min=": Cells(3, 2) = Min

Cells(3, 4) = "IMin": Cells(3, 5) = IMin

R = A(IMax) ‘ меняем местами

A(IMax) = A(IMin) ‘ максимальный и

A(IMin) = R ‘ минимальный элементы

For i = 1 To 10

Cells(5, i) = A(i) ‘ вывод массива

В результате работы этой программы на рабочем листе Excel появятся следующие данные (рис. 5).

Рис. 5. Вычисление минимального и максимального элементов массива

Задача 2. Задан одномерный массив Х(N). Вычислить максимальный из отрицательных элементов этого массива.

Sub PR18()

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