Паскаль (массивы)

[giv93]

[TinMan]

Вот такой способ самый простой и самый неэффективный:

for i:=1 to n do for j:=1 to n do begin
  b[i,j]:= 0;
  for ii:=i to n do for jj:=1 to j do b[i,j]:= b[i,j]+a[ii,jj]
end;

Вот так будет поэффективнее, тут мы избавляемся от одного внутреннего цикла:

for i:=1 to n do
  for j:=n downto 1 do begin
    if i=1 then b[i,j]:= 0 else b[i,j]:= b[i-1,j];
    for jj:=j to n do b[i,j]:= b[i,j] + a[i,jj]
  end;

Можно и дальше оптимизировать. Придется ввести дополнительную переменную, но зато мы совсем избавимся от внутренних циклов. Примерно так:

for i:=1 to n do begin
  c:= 0;
  for j:=n downto 1 do begin
    с:= с + a[i,j]
    if i=1 then b[i,j]:= c else b[i,j]:= b[i-1,j] + c
  end;

Дальнейшая оптимизация тоже возможна, но вряд ли особо нужна..
Надеюсь, не наврал (не проверял).