Question

Scrieti un program pascal. urgent <<<< dau corona

Answer 1

program Sume;

var T: array[1..20, 1..20] of integer;

   n, i, j, suma1, suma2: integer;

begin

 write('n='); read(n);

 writeln('introdu ',n*n,' elemente ale tabloului bidimensional:');

 for i:=1 to n do

    for j:=1 to n do

       begin

          read(T[i,j]);

          if  i=j then suma1:=suma1+sqr(T[i,j]);

          if i<>j then suma2:=suma2+T[i,j];

       end;

       

 writeln(' suma patratelor elementelor de pe diagonala principala= ',suma1);

 writeln('suma elementelor ce nu se afla pe diagonala principala= ',suma2);

end.