个字符的范围,则应把它移到下一行去。输入一个句子测试你的程序。Р习题部分:Р输入n个整数,请找出最小数所在的位置,并把它与第一个数对调。(★)Рprogram e4_2;РvarР a:array[1..10]of integer;Р i,t,y:integer;РbeginР writeln('input ten integer number:');Р for i:=1 to 10 do read(a[i]);Р t:=a[1];Р for i:=2 to 10 do if a[i]<t then t:=a[i];Р for i:=1 to 10 doР if a[i]=t then begin writeln('the min number is ',i,'th'); a[i]:=a[1]; a[1]:=t; end;Р for i:=1 to 10 do write(a[i]:8);Рend.Р用边排序边合并的方法把两个有序数列合并为一个新的有序数列,不得先合并再重新排序。Р (★★)Р?(测试数据:这里a组数据共8个:1 1 3 6 6 7 9 10;?b组数据共5个:0 1 2 3 4)Рprogram e4_3;РvarР a:array[1..8] of integer;Р b:array[1..5] of integer;Р c:array[1..13] of integer;Р i,j,k,m,n:integer;РbeginР writeln('input 8 integer number of square arrayA:');Р for i:=1 to 8 do read(a[i]);Р writeln('input 5 integer number of square arrayB:');Р for i:=1 to 5 do read(b[i]);
全文预览
