Anonymous

program matrizza;
type masyvas=array[1..10000, 1..10000] of real;

procedure rusiuojam(n:integer; var mass:masyvas);
var x,y,z:integer;
    temp:real;

begin
 for y:=1 to n do begin
  for z:=1 to n do begin
   if (mass[2][y]>mass[2][z]) then begin
    for x:=1 to n do begin
     temp:=mass[x][y];
     mass[x][y]:=mass[x][z];
     mass[x][z]:=temp;
    end;
   end;
  end;
 end;
end;

var x,y,n:integer;
    mass:masyvas;

begin
 writeln('Iveskite n: ');
 readln(n);

 randomize;                       //sugeneruojam ir isspausdinam
 for x:=1 to n do begin
  writeln;
  for y:=1 to n do begin
   mass[x][y]:=random(1000);
   write(mass[x][y]:4:0, ' ');
  end;
 end;

 writeln;
 writeln;
 rusiuojam(n, mass);

 for x:=1 to n do begin
  writeln;
  for y:=1 to n do write(mass[x][y]:4:0, ' ');
 end;

 readln();
end.