Uses crt;

const
 n=6;
 Dx=0.4;

var
 a,b: array[1..n, 1..n] of real;
 c: array[1..n*n] of real;
 i,j: integer;
 Max: real;

begin
 clrscr;
 writeln('Ishodniy massiv:');
 i:=1;
 repeat
  c[i]:=Dx*(i-1);
  i:=i+1;
 until i=n*n+1;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=sin(c[(i-1)*n+j]);
     write(a[i,j]:8:2);
    end;
   writeln;
  end;
 writeln;
 writeln('Noviy massiv:');
 Max:=a[1,1];
 for i:=2 to n do if a[i,i]>Max then Max:=a[i,i];
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=a[i,j]/Max;
     write(a[i,j]:8:2);
    end;
   writeln;
  end;
 readln
end.