двумерный массив(матрицы) в pascal

[zenid]

Вычислите сумму элементов матрицы, выделенных черным цветом:
00000000х
0000000хх
000000ххх
0000000хх
00000000х

где х- элементы матрицы, выделенные черным цветом., решите пожалуйста, напиши основной код программы

[Mad_Cat]

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

[zenid]

а можете пожалуйста объяснить программу буквально построчно, что мы делаем?

[zenid]

объясните пожалуйста

[zenid]

пожалуйста а по рисунку наберите код, задание то же самое:

[zenid]

введите пожалуйста код по картинке

[Zer0]

Для непонимающего решение Mad_Cat объяснить проблематично...
Попробуйте такое (не оптимальное, но более понятное)

...
s:=0;
for i:=1 to n do
 for j:=1 to n do
   if (j>=i) and (i>=j-n+1) then //если элемент лежит ниже побочной диагонали и выше главной, то
     s:=s+a[i,j]; //прибавляем его к сумме
...

[Сергей К.]

for i :=1 to n div 2+1 do // цикл от первой до средней строки +1 строка
for j:= n downto n-i+1 do // цикл от последнего элемента в строке до: сначала предпоследнего, потом предпредпоследнего и т.д.
s:=s+a[i,j]; // складываем найденные элементы
for i :=n downto n div 2 do
for j:= n downto n-i+1 do
s:=s+a[i,j];

[zenid]

спасибо всем реально, очень помогли.