Версия для печати темы

Автор: 18192123 30.10.2006 21:19

вводится матрица 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 30.10.2006 21:21

Неужели каждый раз надо http://forum.pascal.net.ru/index.php?s=&showtopic=2694&view=findpost&p=23247# ?

Автор: 18192123 30.10.2006 22:24

Цитата(klem4 @ 30.10.2006 17:21)

Автор: klem4 30.10.2006 22:27

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

http://forum.pascal.net.ru/index.php?s=&showtopic=6913&view=findpost&p=77806

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

Автор: 18192123 30.10.2006 22:38

Цитата(klem4 @ 30.10.2006 18:27)

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

http://forum.pascal.net.ru/index.php?s=&showtopic=6913&view=findpost&p=77806

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

Автор: klem4 30.10.2006 22:58

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