16.请仔細閱读下列程序段: [单选题] *

来源: NOIP题库   

16.请仔細閱读下列程序段: [单选题] *

PASCAL 语言

var

a:array[1..3,1..4] of integer;

b:array[1..4,1..3] of integer;

x,y:integer;

begin

for x:=1 to 3 do

for y:=1 to 4 do

a[x,y]:=x-y;

for x:=4 downto 1 do

for y:=1 to 3 do

b[x,y]:=a[y,x];

writeln(b[3,2]);

end.

答案解析