Дан фрагмент программы ** языке программирования Pascal sum:=0 for i:=1 to n do if j: (i

Question

Дан фрагмент программы на языке программирования Pascal sum:=0 for i:=1 to n do if j: (i<=j) and (i+j<=n+1) then sim:=sum+x[i,J] writelm(sum)

Answer 1

Подсчёт суммы элементов выше и на главной диагонали, выше и на побочной диагонали