关闭

2015年05月01日

72人阅读 评论(0) 收藏 举报
分类:
program tppx;
const maxn=100;
var
 map:array[1..maxn,1..maxn]of longint;
 into:array[1..maxn]of longint;
 n,i,j,k:longint;
 procedure init;
 var
  i,j:longint;
 begin
 read(n);
 for i:=1 to n do
  for j:=1 to n do
 read(map[i,j]);
 inc(into[j]);
 end;
begin
 //assign('input.in');
 //assign('output.out');
 //reset(input);
 //rewrite(output);
 init;
 for i:=1 to n do
  begin
   j:=1;
   while(j<=n)and(into[j]<>0)do inc(j);
   if j>n then halt;
   write(j,' ');
   into[j]:=255;
   for k:=1 to n do
   if map[j,k]=1 then dec(into[k]);
  end;
 //close(input);
 //close(output);
end.


0 0 1 0 0 0 0 1
1 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0
0 0 1 0 0 0 0 1
0 1 0 1 0 1 0 0
1 1 0 0 0 0 0 0
0 0 0 1 1 0 0 0
0 0 1 0 0 0 0 0
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:15148次
    • 积分:108
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档