PASCAL 排列数据每一行的数据项数 1

网友回答

错了请告诉我 谢谢
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]