Question

In pascal. Se da un tablou bidimensional. Scrieti un program care calculeaza suma elementelor situate mai jos de diagonala secundara

Answer 1

program matrice;

type mat=array[1..10,1..10] of integer;

var a:mat;

i,j,n:byte;

s:longint;

begin

         writeln("Dati dimensiunea tabloului");

         readln(n);

         writeln("dati elementele tabloului:");

         for i:=1 to n do

               for j:=1 to n do

                        read(a[i,j]);

          s:=0;

         for i:=1 to n do

               for j:=n+2-i to n do          //n+1-i daca vrei si elementele de pe diag secundara

                        s:=s+a[i,j];

           write("suma este: ", s);

end.