сумма элементов квадратной матрицы Опции

[18192123]

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

прогу-то я составила, а вычисляется не то

uses crt;
const n=4;
type vect=array[1..n] of integer;
        matr=array[1..n] of vect;
var a:matr;
i,j,s:integer;
begin
clrscr;
writeln ('vvod');
for i:=1 to n do
for j:=1 to n do read (a[i,j];
s:=0;
for i:=2 to n do
for j:=n downto i do
s:=s+a[i,j];
writeln ('s=',s);
readkey;
end.

[klem4]

Неужели каждый раз надо носом тыкать ?

[18192123]

Неужели каждый раз надо носом тыкать ?

и по-твоему там все верно?!

[klem4]

А по твоему нет ? Я тут тоже усомнился недавно, и был не прав.

http://forum.pascal.net.ru/index.php?s=&sh...indpost&p=77806

если ты об этом конечно, ну а если нет, просвети меня пожалуйста

[18192123]

А по твоему нет ? Я тут тоже усомнился недавно, и был не прав.

http://forum.pascal.net.ru/index.php?s=&sh...indpost&p=77806

если ты об этом конечно, ну а если нет, просвети меня пожалуйста

ладно, тогда мне нужно было уточнить: мне нужны строго элементы ниже побочной диагонали
да, ... не подумала
помоги пожалуйста!

[klem4]

строго элементы ниже побочной диагонали

Ну так

for i := 2 to n do
   for j := n - i + 2 to n do
    s := s + x[i, j];

9999
9991
9911
9111