Массив А [N,N].Если на гл. диагонали нет отриц. эл-ов, то эл-ты побоч. диагонали удвоить, в против. случае-возвести в квадрат.

Question

Лена Ком · Accepted Answer

Вот, смотри. Правильно?
N=3
A=[1 2 3
 4 5 6
 7 8 9]

Ответ:
A=[1 2 6
 4 10 6
 14 8 9]

Юлия Буланникова · Answer

integer, parameter :: n=5 
integer a(n,n) 
j=count((/(a(i,i),i=1,n)/).lt.0) 
do i=1,n 
if (j==0) then 
a(i,i)=a(i,i) *2 
else 
a(i,i)=a(i,i)**2 
end if 
end do 
end