👤

Scrieți un program care calculează suma fiecărui rând a unei matrice (Pascal)

Răspuns :

Răspuns:

program SL;

var m:array[1..100,1..100] of integer;

   i,j,n,s:integer;

begin

writeln('Elementele matricii');

write('n:');

readln(n);

for i:=1 to n do

     for j:=1 to n do begin

               write('m[',i,j,']=');

               readln(m[i,j]);

                   end;

writeln('Suma fiecarui rand');

s:=0;

for i:=1 to n  do   begin

     s:=0;

     for j:=1 to n do

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

     writeln(s);

                           end;

readln;  

end.