Anonymní profil Johnny – Programujte.com

#1 Johnny
doplneni: sirka pasma je maximalni vzdalenost nenuloveho prvku od diagonaly, diagonalni matice ma sirku pasma 1

děkuji za rady

Ahoj, chtel bych vas poprosit o radu, mam vygenerovat matici 20x20 pomoci vzorce round(viz v kodu),toto mam hotove i s vypsanim matice, ale potrebuju zjistit sirku pasma matice(Šířka pásme je maximální vzdálenost dvou nenulových prvků (přes řádky nebo přes sloupce)), ale nevim jak to zapsat, dekuji za jakoukoli radu  

var
  Application: TMyApplication;
  mat:array[1..20,1..20] of real;
  i,j,pasmo:integer;
begin
  for i:=1 to 20 do begin
      for j:=1 to 20 do
      mat[i,j]:=round(sin(i+j)-cos(i));
      end;
  for i:=1 to 20 do begin
      for j:=1 to 20 do
          write(mat[i,j]:3:0);
          writeln;
          end;
  pasmo:=0;
          for i:=1 to 20 do begin
              for j:=1 to 20 do
                  if (mat[i+1,j]>0) and (mat[i-1,j]>0) and (mat[i,j-1]>0) and (mat[i,j+1]>0) then
                 pasmo:=pasmo+1;
          end;
          write('sirka pasma je:',pasmo);
   readln;
end.