Перед вами часть кода программы на языке Pascal. sum:=0; for i:=1 to n do for j:=1 to n do if (i<=j) and (i+j<=n+1) then sum:=sum+x[i,j]; writeln(sum); Результатом выполнения этого кода является: 1) сумма элементов ниже и на главной диагонали, ниже и на побочной диагонали; 2) сумма элементов выше и на главной диагонали, ниже и на побочной диагонали; 3) сумма элементов ниже и на главной диагонали, выше и на побочной диагонали; 4) сумма элементов выше и на главной диагонали, выше и на побочной диагонали.