ETM (25.03.2024 07:44, просмотров: 178) ответил LordN на найти суммы каждой диагонали ниже главной.Ну, да... Будет как-то так... На Паскале, дай Бог памяти...
for j:=N-1 downto 2 do begin
S[j]:=0;
for i:=j downto 1 do begin
S[j]:=S[j]+ A[i,i];
end;
end;