PASCAL 排列数据每一行的数据项数 1
答案:2 悬赏:80 手机版
解决时间 2021-02-14 22:01
- 提问者网友：萌卜娃娃
- 2021-02-14 02:50
PASCAL 排列数据每一行的数据项数 1
最佳答案
- 五星知识达人网友：你哪知我潦倒为你
- 2021-02-14 03:08
错了请告诉我 谢谢var i,n,j,temp,len0,k:longint; a:array[1..1000,0..10000] of longint; b:array[1..1000] of longint;beginreadln(n);for i:=1 to n do begin while not eoln do begin inc(a[i,0]); read(a[i,a[i,0]]); if a[i,a[i,0]]=-1 then break; end; readln;end;for i:=1 to n do begin b[i]:=i; end;for i:=1 to n do for j:=i+1 to n do begin len0:=a[b[i],0]; if a[b[j],0]>len0 then len0:=a[b[j],0]; for k:=1 to len0-1 do begin if a[b[j],k]>a[b[i],k] then begin break; end else if a[b[j],k]
全部回答
- 1楼网友：青灯有味
- 2021-02-14 03:35
这个问题的回答的对
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯