Пример выполнения задания 2.3

Условие. Дан одномерный массив X=(x_i), i=1,2,...,12. Составить блок-схему и программу на VBA для решения следующей задачи: Найти сумму максимального и минимального элемента

Обозначение: max, min – максимальный и минимальный элементы

Блок-схема

max=x₁; min=x₁

max=x_i

да

нет

да

нет

Программа

Sub p3()

Dim x (1 to 12) As Single

Dim i As Integer

Dim max As Single, min Аs Single

For i=1 to 12

x(i)= Val(InputBox(“Введите массив x”))

Next i

Max=x(1): min=x(1)

For i=1 to 12

If x(i) > max then max=x(i)

If x(i) < min then min=x(i)

Next i

MsgBox max + min

End Sub

2.4. Работа с двумерными массивами

Дан двумерный массив А=(a_ij), i=1,2,...,7; j=1,2,...,8. Составить алгоритм и программу на VBA для решения задач, представленных в табл.2.4.

Таблица 2.4.

№вар	Условие
0	Найти сумму положительных элементов массива
1	Найти произведение отрицательных элементов массива
2	Найти количество нулевых элементов массива
3	Найти сумму положительных элементов в каждом столбце
4	Найти сумму отрицательных элементов в каждой строке
5	Найти количество отрицательных элементов в каждой строке
6	Найти максимальный элемент массива и его индексы
7	Найти минимальные элементы в каждой строке
8	Найти максимальные элементы в каждом столбце
9	Найти суммы элементов в каждом четном столбце
10	Найти суммы строчных индексов отрицательных элементов в каждом столбце
11	Найти сумму положительных элементов в каждом столбце
12	Определить количество столбцов, в которых нет отрицательных элементов
13	Найти количество элементов, меньших 6, в каждой строке
14	Найти минимальные элементы в каждом нечетном столбце
15	Найти сумму минимального и максимального элемента
16	Найти индексы элементов, меньших числа 9
17	Найти сумму индексов отрицательных элементов массива
18	Найти произведение ненулевых элементов для каждого столбца