Var a : array [1..n,1..n] of real; (n–нечетно) найти сумму элементов из области матрицы а, отмеченной символом ' * ': 1 n 0 0 0 * 0 0 0 0 0 * * * 0 0 0 * * * * * 0 * * * * * * * 0 * * * * * 0 0 0 * * * 0 0 n 0 0 0 * 0 0 0

s:=0; for i:=1 to (n div 2)+1 do for j:=(n div 2)+1+1-i to (n div 2)+1-1+i do s:=s+a[i,j]; for i:=(n div 2)+2 to n do for j:=(n div 2)+1-(n-i) to (n div 2)+1+(n-i) do s:=s+a[i,j];