Pagini recente » Cod sursa (job #1515943) | Cod sursa (job #2702776) | Cod sursa (job #550167) | Cod sursa (job #2209344) | Cod sursa (job #138959)
Cod sursa(job #138959)
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.