Cod sursa(job #138959)

Utilizator antoanelaAntoanela Siminiuc antoanela Data 19 februarie 2008 15:48:05
Problema Grozavesti Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 1.21 kb
program grozavesti;
var f,g:text;
    v:array[0..310,0..310]of longint;
    n,i,j,y,min,lmin,cmin,aux:longint;
begin
assign(f,'grozavesti.in');
assign(g,'grozavesti.out');
reset(f);
rewrite(g);
read(f,n);
for i:=1 to n do
  for j:=1 to n do
    read(f,v[i,j]);
for y:=1 to n do
  begin
    min:=v[y,y];
    if (min>1)then
      begin
        lmin:=y;
        cmin:=y;
        for i:=y+1 to n do
          for j:=y+1 to n do
            if (v[i,j]<min)then
              begin
                min:=v[i,j];
                lmin:=i;
                cmin:=j;
                if (v[i,j]=1)then break;
              end;
        if (lmin<>y)then
          begin
            for i:=1 to n do
              begin
                aux:=v[y,i];
                v[y,i]:=v[lmin,i];
                v[lmin,i]:=aux;
              end;
            writeln(g,'L ',y,' ',lmin);
          end;
        if (cmin<>y)then
          begin
            for i:=1 to n do
              begin
                aux:=v[i,y];
                v[i,y]:=v[i,cmin];
                v[i,cmin]:=aux;
              end;
            writeln(g,'C ',y,' ',cmin);
          end;

      end;
  end;
close(f);
close(G);
end.