Cod sursa(job #120419)
Utilizator | Alexandru Bunget ioalexno1 | Data | 5 ianuarie 2008 14:10:03 |
---|---|---|---|
Problema | Grozavesti | Scor | 100 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 1.45 kb |
program alex;
var f:text;
i,n,j,k,p,q,z,d:integer;
min:longint;
a:array[1..300,1..300]of longint;
s:array[1..600]of string[9];
t,t1:string;
begin
assign(f,'grozavesti.in');reset(f);
readln(f,n);
for i:=1 to n do
begin
for j:=1 to n do
read(f,a[i,j]);
readln(f);
end;
close(f);
d:=0;
for i:=1 to n do
begin
min:=999999999;
for j:=i to n do
for k:=i to n do
if a[j,k]<min then begin
min:=a[j,k];
p:=j;
q:=k;
end;
if p<>i then begin
for j:=1 to n do
begin
z:=a[p,j];
a[p,j]:=a[i,j];
a[i,j]:=z;
end;
d:=d+1;
str(p,t);
str(i,t1);
s[d]:='L '+t+' '+t1;
end;
if q<>i then begin
for j:=1 to n do
begin
z:=a[j,q];
a[j,q]:=a[j,i];
a[j,i]:=z;
end;
d:=d+1;
str(q,t);
str(i,t1);
s[d]:='C '+t+' '+t1;
end;
end;
assign(f,'grozavesti.out');rewrite(f);
writeln(f,d);
for i:=1 to d do
writeln(f,s[i]);
close(f);
end.