[a1]和a[a2]}s: integer begin s:=b[a1];b[a1]:=b[a2];b[a2]:=s;end begin read(n)read():=b[:d:=1;for a: = 2 to n do begin read(:bla]then begin :=bla]:d:=a;end:end;jiaohuan( d, 1);end 4.program ( input, );procedure p:i, , , longint;for i: = 2 to 4...
n!=1*2*3*…*n1.program q1;vara:string;b:integer;beginread(a);for b:=length(a)downto 1 dowrite(a[b]);end.2.program q2;vara:array[1..1000]of string;b:string;c,d,e,a1,a2:integer;procedure jiaohuan(a1,a2:integer);{交换数组a[a1]和a[a2]}vars:string;begins:=a[a1];a[...