永发信息网

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
这个问题的回答的对
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯