Var A : array [1..n,1..n] of real; (n–нечетно) Найти сумму элементов из области матрицы А, отмеченной символом ' * ': [latex] \left[\begin{array}{ccccccc} 000000\\ 0000\\ 0*0\\ ***\\ 00\\ 0000\\ 000*000 \en...

Question

Var A : array [1..n,1..n] of real; (n–нечетно) Найти сумму элементов из области матрицы А, отмеченной символом ' * ': [latex] \left[\begin{array}{ccccccc} 000000\\ 0000\\ 0*0\\ ***\\ 00\\ 0000\\ 000*000 \en...

Var A : array [1..n,1..n] of real; (n–нечетно) Найти сумму элементов из области матрицы А, отмеченной символом ' * ': [latex] \left[\begin{array}{ccccccc} 0&0&0&*&0&0&0\\ 0&0&*&*&*&0&0\\ 0&*&*&*&*&*&0\\ *&*&*&*&*&*&*\\ 0&*&*&*&*&*&0\\ 0&0&*&*&*&0&0\\ 0&0&0&*&0&0&0 \end{array}\right] [/latex]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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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];

Var A : array [1..n,1..n] of real; (n–нечетно) Найти сумму элементов из области матрицы А, отмеченной символом ' * ': [latex] \left[\begin{array}{ccccccc} 000*000\\ 00***00\\ 0*****0\\ *******\\ 0*****0\\ 00***00\\ 000*000 \en...

Var A : array [1..n,1..n] of real; (n–нечетно) Найти сумму элементов из области матрицы А, отмеченной символом ' * ': [latex] \left[\begin{array}{ccccccc} 000000\\ 0000\\ 0*0\\ ***\\ 00\\ 0000\\ 000*000 \en...