题目描述
有一组数(设有N个)。编一程序交换这组数中任意指定的两段。
输入
一个数N(不超过20个)
一行N个数由空格分开
两个空格分开的数(表示要交换的其中一段)
两个空格分开的数(表示要交换的其中另一段)
输出
交换后的一行数(中间用空格隔开)
样例输入
16
3 6 11 45 23 70 67 34 26 89 90 15 56 50 20 10
3 5
13 15
样例输出
3 6 56 50 20 70 67 34 26 89 90 15 11 45 23 10
传送门
满分代码:program ex1146;var i,j,n,k,a1,b1,a2,b2:integer;a,b:array[0..20] of longint;procedure make(x,y:integer);var i:integer;beginfor i:=x to y dobegininc(k);b[k]:=a[i];end;end;beginreadln(n);for i:=1 to n doread(a[i]);readln(a1,b1);readln(a2,b2);k:=0;make(1,a1-1);make(a2,b2);make(b1+1,a2-1);make(a1,b1);make(b2+1,n);for i:=1 to n dowrite(b[i],' ');end.