Question

Se consideră tabloul T[1..n,1..n] cu elemente numere întregi .Sa se compună un program care va calcula suma elementelor ce nu se află pe diagonala principală si elementul maximal de pe diagonala principală a matricei T.

Answer 1

var a:array [1..10000,1..10000] of integer;
n,m,i,j,max,suma,x:integer;

begin

  //citirea datelor
  read(n,m);
  for i:=1 to n do 
    for j:=1 to m do
      read(a[i,j]);

  //calculul sumei elementelor ce nu se afla pe diagonala principala
  for i:=1 to n do
    for j:=1 to m do 
     if (i<>j) then suma:=suma+a[i,j];

    //calculul elementului maximal de pe diagonala principala
  max:=a[1,1];
  if (n<m) then x:=n else x:=m;
  for i:=2 to x do   
if (a[i,i]>max) then max:=a[i,i];   

//afisarea datelor 
writeln('Suma elementelor ce nu se afla pe diagonala principala ',suma);  write('Elementul maximal de pe diagonala principala ',max);
end.