Написать программу для решения следующей задачи:
для числа n вводимого с клавиатуры (с помощью функции InputBox()) найти все элементы квадратного массива а(i, j) размерностью n х n если:
а(i, j) = (i+j)/cos(i)


найти для числа m<2n вводимого с клавиатуры (с помощью функции InputBox()) те элементы массива а(i, j), сумма индексов которых равна m.
Вывести в Excel массив а(i, j) и найденные элементы с помощью функции Cells. Подписать выведенные данные.



Первая часть решена , но как найти элементы , сумма индексов которых равна m и потом вывести это в массив , не очень понятно , вернее код не понятен ))



Вот код для первой части , которая уже готова) :


Sub trfu()
Dim a(1 To 7, 1 To 7) As Double
Dim b(1 To 7, 1 To 7) As Double
Dim i As Double
Dim j As Double
Dim n As Double
Dim m As Double




For i = 1 To 7
For j = 1 To 7
If i = j Then
a(i, j) = (i + j) / cosi

Else: a(i, j) = 6
End If
Cells(i, j) = a(i, j)
If i = 7 Or j = 7 Then
a(i, j) = 43
End If
Cells(i, j) = a(i, j)
Cells(i, j) = Cells(n, n)

С первой частью не очень понятно. Зачем условие проверяете: i=j?

Если честно, вообще непонятно, что делаете.

Условие "сумма индексов равна m" проверяется легко: if i+j=m then
(в ваших обозначениях)