Цитата:
Сообщение от Tamerlaan_Sg
найти сумму элементов расположенных ниже главной диагонали матрицы
|
Const n=5;
Var a:array[1..n,1..n] of integer;
i,j,S:integer;
BEGIN
S:=0;
For i:=1 to n do
begin
For j:=1 to n do
readln(a[i,j]);
end;
For i:=2 to n do
begin
For j:=1 to n do
If (i=j+1)or(i=j+2)or(i=j+3)or(i=j+4) then S:=S+a[i,j];
end;
writeln('S=',S);
END.