Program Pzim ;
{2. Faça um algoritmo em que o usuario informe os valores para uma matriz 4x4
e em seguida efetive a soma dos valores que estão abaixo da diagonal secundária.
O algoritmo deve mostrar os valores que estão abaixo da diagonal secundária e sua soma.
Ex.:
1-5-2-2
7-5-3-2
8-4-6-1
5-4-3-1
Valores a serem usados, mostrados e somados:
- - - -
- - -2
- -6-1
-4-3-1
}
var
m:array[1..4,1..4] of integer;
i,j, soma:integer;
Begin
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
writeln('Digite a matriz : '); //recebe os elementos da matriz
readln(m[i,j]);
end;
end;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if ((i+j)>= 6) then // se i+j >= 6, = condição para o elemento pertencer
begin //a parte inferior da diagonal secundaria
soma:=soma+m[i,j]; //soma os elementos
end;
end;
end;
writeln('A soma dos elementos abaixo da diagonal é igual a : ',soma); //mostra
end.
