2、输入4行4列数组，将第2行与第3行元素对调。 free pascal

Question

2、输入4行4列数组，将第2行与第3行元素对调。bian chengfree pascal

Answer 1

type code:array[1..4]of integer;//自定义一个一维数组类型Var a:array[1..4]of code;//一个一维的code，也就成了二维数组h:code;//交换用临时变量i,j:longint;Begin For i:=1 to 4 do For j:=1 to 4 do read(a[i,j]); h:=a[2];a[2]:=a[3];a[3]:=h;//对第2、3行进行交换（必须是同类型的变量才能进行交换，这里h、a[2]、a[3]都是自定义的code类型） For i:=1 to 4 do Begin For j:=1 to 4 do write(a[i,j],' '); writeln; End;End.