B : arry of Integer;
k : Integer;k := 0;
for i := 1 to 10 do
if (A[i,1] = 0) and
(A[i,2] = 0) and
(A[i,3] = 0) and
(A[i,4] = 0) and
(A[i,5] = 0) then
else
begin
Inc(k);
SetLength(B, k)
for j := 1 to 5 do
B[i,j] := A[i,j];
end;
差不多吧
k : Integer;k := 0;
for i := 1 to 10 do
if (A[i,1] = 0) and
(A[i,2] = 0) and
(A[i,3] = 0) and
(A[i,4] = 0) and
(A[i,5] = 0) then
else
begin
Inc(k);
SetLength(B, k)
for j := 1 to 5 do
B[i,j] := A[i,j];
end;
差不多吧
就是顶楼的解题思路了……