найти сумму всех элементов массива и заменить ею элементы главной диагонали.

задан двумерный массив A[1..N,1..N] (2<=N<=20), элементами которого являются действительные числа. Для решения использовать динамический массив A, значения элементов массива задаются случайным образом.

написать на Pascal ABC...