Диагональное вычисление в матрице

Задана матрица Y(n, n). Вычислить сумму элементов в IV четверти, произведение четных элементов во II четверти, поменять местами минимальный элемент в I четверти и максимальный элемент в III четверти (рис. 10).

Рис. 10. Диагональное вычисление в матрице

Программный код

Option Explicit

Sub PR24()

Dim Y(50, 50) As Integer

Dim n As Integer

Dim i As Integer, j As Integer

Dim R As Integer

Dim S As Double

Dim P As Double

Dim Min As Integer

Dim Max As Integer

Dim iMin As Integer, jMin As Integer

Dim iMax As Integer, jMax As Integer

n = Val(InputBox("введите n"))

‘ очистка ячеек

Range(Cells(1, 1), Cells(100, 100)).Select

Selection.Clear

Cells(1, 1).Select

‘ ввод матрицы

For i = 1 To n

For j = 1 To n

Cells(i, j) = Int(Rnd * 100 - 50)

Y(i, j) = Cells(i, j)

Next j

Next i

P = 1: S = 0: Max = –32000: Min = 32000

For i = 1 To n

For j = 1 To n

If (i + j < n + 1) And (i > j) Then S = S + Y(i, j)

If (Y(i, j) Mod 2 = 0) And (i < j) And (i + j > n + 1) Then P = P * Y(i, j)

If (Y(i, j) > Max) And (i > j) And (i + j > n + 1) Then

Max = Y(i, j)

iMax = i

jMax = j

End If

If (Y(i, j) < Min) And (i < j) And (i + j < n + 1) Then

Min = Y(i, j)

iMin = i

jMin = j

End If

Next j

Next i

Cells(n + 2, 1) = "Сумма="

Cells(n + 2, 3) = S

Cells(n + 3, 1) = "Произведение="

Cells(n + 3, 3) = P

‘ Перестановка минимума и максимума

R = Y(iMax, jMax)

Y(iMax, jMax) = Y(iMin, jMin)

Y(iMin, jMin) = R

Cells(n + 5, 1) = "новая матрица"

For i = 1 To n

For j = 1 To n

Cells(n + i + 6, j) = Y(i, j)

Next j

Next i

End Sub

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