Просуммировать элементы квадратной матрицы , расположенные в правой четверти,...

Question

Просуммировать элементы квадратной матрицы , расположенные в правой четверти, ограниченной главной и побочной диагоналями, включая элементы, расположенные на диагоналях. помогите пожалуйста. если не трудно

сделайте пожалуйста так:

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

writeln('Summ = ', Summ);
readln;
end.

но это сумма верхней четверти а вот как сделать правую часть я вообще не знаю(

Answer 1

var
a:array [1..100,1..100]of integer;
n,i,j, Summ:integer;
begin
  write ('n = ');
  readln(n);
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:= random (90) + 10;
      write ( a[i,j]:4);
    end;
    writeln;
  end;

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

writeln('Summ = ', Summ);
readln;
end.