Program Lab5;

const
 Nmax=10;

type
 matr=array[1..Nmax, 1..Nmax] of real;
 vect=array[1..Nmax] of real;
var
 N:Integer;
 Y:real;
 A:matr;
 X:vect;


Procedure Matrica;
var i,j:integer;

begin
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=power(-1,i+j)*(4.3-i)/Abs(0.2-i*j)/N;
     write(A[i,j]:8:3);
    end;
   writeln;
  end;
 writeln;
end;

Procedure Vector;
var
 i,j,k:integer;
 s:real;
begin
 for i:=1 to N do
  begin
   k:=0;
   s:=0;
   for j:=1 to N do
    if A[i,j]>0 then
     begin
      s:=s+A[i,j];
      Inc(k);
     end;
   if k>0 then X[i]:=s/k else X[i]:=0;
   Writeln('X[',i,']= ',X[i]:0:3);
  end;
 Writeln;
end;

Procedure Porjadok;
var
 i,j,k:integer;
 c:real;
begin
 for j:=1 to N do
  for i:=1 to N-1 do
   for k:=1 to N-i do
    if A[k,j]>A[k+1,j] then
     begin
      c:=A[k,j];
      A[k,j]:=A[k+1,j];
      A[k+1,j]:=c;
     end;
 for i:=1 to N do
  begin
   for j:=1 to N do
    Write(A[i,j]:8:3);
   Writeln;
  end;
 Writeln;
end;

Procedure Fun;
var
 Max,Min:Real;
 i:Integer;
begin
 Max:=X[1];
 Min:=X[1];
 For i:=2 to N do
  begin
   if X[i]>Max then Max:=X[i];
   if X[i]<Min then Min:=X[i];
  end;
 Y:=(Max-Min)/2;
 Write('Y= ',Y:0:3);
end;

Begin
 Write('N= ');
 Readln(N);
 Matrica;
 Vector;
 Porjadok;
 Fun;
 Readln
End.