高分相送，答中有奖

Question

反过来
for i:=0 to number-1
do 
  begin
   a:=temp[i];
   temp[i]:=temp[number-1-i];
   temp[number-1-i]:=a; 
  end;
第二问没看出来什么关系

Answer 1

for i:=0 to 2
do 
  begin
   a:=temp[i];
   temp[i]:=temp[5-i];
   temp[5-i]:=a; 
  end;
move(temp,temp1[1],6);

Answer 2

第一问：
var
  iLoop: Integer;
  tempnum: Integer;
begin
  totalCount := Length(temp);
  for iLoop:=0 to totalCount div 2 do begin
    temp[iLoop] := tempnum;
    temp[iLoop] := temp[totalCount-iLoop-1];
    temp[totalCount-iLoop-1] := tempnum;
  end;
end;第二问：
var
  tmparray: array[0..1, 0..2] of Integer;
begin
  Move(temp, tmparray, SizeOf(temp));
end;
tmparray即为所得