Вопрос Помогите составить программу, пожалуйста Получить новую матрицу, где все элементы главной диагонали

[Rodja]

Помогите составить программу, пожалуйста Получить новую матрицу, где все элементы главной диагонали заменить на 1.

 

[ddddddd]

На каком языке программа нужна?

 

[temkka]

for I;=1 to n do mass[i,i]:=1;