Формирование матрицы и выполнение заданий: вычисление сумы четных элементов; максимума из нечетных элементов в строке; произведение элементов в нечетных столбцах; количество четных элементов выше главной диагонали. Создание программы в Visual Basic.
Аннотация к работе
Вычислить максимум из нечетных элементов в каждой строке матрицы. Вычислить количество четных элементов выше главной диагонали. Решение матрица программа visual basic Option Explicit Sub pr22() Dim a(10, 10) As Integer Dim n As Integer, i As Integer, j As Integer, s As Integer, max As Integer Dim t As Integer, k As Integer, p As Integer n = Val(InputBox(Введите N)) Range(Cells(1, 1), Cells(100, 100)).Select Selection.Clear For i = 1 To n For j = 1 To n If i j = n 1 Then a(i, j) = 1 If i = j Then a(i, j) = 1 If i n 1 Then a(i, j) = 2 If i > j And i j > n 1 Then a(i, j) = 3 If i > j And i j max Then max = a(i, j) For j = 1 To n If a(i, j) Mod 2