Помощь - Поиск - Пользователи - Календарь
Полная версия: сумма элементов квадратной матрицы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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 @ 30.10.2006 17:21) *

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

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

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

если ты об этом конечно, ну а если нет, просвети меня пожалуйста smile.gif
18192123
Цитата(klem4 @ 30.10.2006 18:27) *

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

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

если ты об этом конечно, ну а если нет, просвети меня пожалуйста smile.gif
ладно, тогда мне нужно было уточнить: мне нужны строго элементы ниже побочной диагонали
да, ... не подумала
помоги пожалуйста!
klem4
Цитата
строго элементы ниже побочной диагонали


Ну так
for i := 2 to n do
for j := n - i + 2 to n do
s := s + x[i, j];


9999
9991
9911
9111
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.