Программа для формирования матрицы A(n,n) (Макросы/Sub)

[Aleksandr2138]

2019-05-06_115532.png

Dim A(), i, j, n As Integer
n = Range("A1")
ReDim A(n, n)
For i = 1 To n
For j = 1 To n
A (i,j)= ????????
Cells(i + 1, j) = A(i, j)
Next i
Next j
End Sub

Вопрос только что писать в A(i,i) , никак не могу сообразить

[p51x]

Ну так возьмите ручку и распишите все полностью, если i < j, то А = ..., иначе если i=j, то ... иначе

[Aleksandr2138]

Здравствуйте , я пробовал расписывать, но я не понимаю некоторые моменты
IF i = j (это главная диагональ, она равно 25, вот как написать, что она равно 25 ,я не понимаю , пробовал i = j = 25, но это не верно) дальше
i < j это ниже диагонали, опять же там все нули и как это написать не знаю, i > j , там будет формула , думаю i + 1 , но опять же ,не знаю.
и как это все объединить вместе
Я пробовал делать , но увы, я глуповат по информатике)

[Аватар]

если i=j то присвоить элементу матрицы n
иначе если i>j то присвоить элементу матрицы 0
иначе присвоить элементу матрицы i-j

[Aleksandr H.]

Что там выше диагонали-то?
1-n == -n+1

[p51x]

Там последовательность от -1 до конца строки с шагом -1. Формально можно даже формулу через i,j написать.

[Serge_Bliznykov]

Сообщение от p51x

Формально можно даже формулу через i,j написать.

Аватар уже выше написал

Сообщение от Аватар

иначе присвоить элементу матрицы i-j

[Aleksandr H.]

Сообщение от Serge_Bliznykov

Аватар уже выше написал

нипанятна (с)

первая строка, последний елемент 1-n = -24 ?
вторая строка, последний елемент -n = -25 ?
третья строка, последний елемент -n+1 = -24 ?

[Аватар]

-n и -n+1 фигня полная. Логично предположить исходя из верхних и последней строк, что там
1-n
2-n
...
n-2-n
n-1-n
n

[Aleksandr2138]

Извините, но сейчас будет очень глупый вопрос Как записать присвоить элементу матрицы n в коде