Uses crt;
Const
 n=5;
Type
 mas=array [1..n] of real;
 matrica=array [1..n, 1..n] of real;
Var
 A:matrica;
 i,j:integer;
 max,min,G:real;
 X:mas;
Begin
 Clrscr;
 G:=0;
 For i:=1 to n do
  begin
   For j:=1 to n do
    begin
     A[i,j]:=((abs(3.7-j))-2)*exp((2-i)*Ln(abs(i-4.3)));
     Write(A[i,j]:8:2);
    end;
   Writeln;
  end;
 Writeln;
 For i:=1 to n do
  begin
   max:=A[i,1];
   min:=A[i,1];
   For j:=2 to n do
    begin
     if A[i,j]>max then max:=A[i,j];
     if A[i,j]<min then min:=A[i,j];
    end;
   X[i]:=abs(max)-abs(min);
   Writeln ('max= ',max:6:2, '  min= ',min:6:2,'  X[',i,']= ',X[i]:6:2);
  end;
 Writeln;
 G:=abs(X[2]-X[1]);
 For i:=2 to n-1 do
  if abs(X[i+1]-X[i])>G then G:=abs(X[i+1]-X[i]);
 Writeln('G= ',G:6:2);
 Readln
End.