入门经典题（一维数组）.doc

入门经典题（一维数组） program ex1117; var a:array[1..100] of longint; i,m:integer; begin readln(m); for i:=1 to m do read(a[i]); for i:=m downto 2 do write(a[i], ) ; write(a[1]); end. 最后一个单独输出，这样可以避免后面出现空格 题1117：【入门】数组逆序 Description 给你m个整数，将其逆序输出 Input 第一行一个整数m（3 = m = 100 )：数的个数 第二行m个整数（空格隔开）（这些数在0-9999999之间) Output m个整数（空格隔开） Sample Input 3 1 7 5 Sample Output 5 7 1 Hint 注意：最后一个数后面没有空格 program ex1118; var a:array[1..100] of longint; i,m:integer; n:longint; begin readln(m); for i:=1 to m do read(a[i]); read(n); for i:=1 to m do if a[i]=n then begin write(i);exit; end; write(-1); end. 题1118：【入门】数组元素的查找 给你m个整数，查找其中有无值为n的数，有则输出该数第一次出现的位置,没有则输出-1。 Input 第一行一个整数m：数的个数 ( 0 = m = 100 ) 第二行m个整数（空格隔开）( 这些数在 0-999999范围内 ) 第三行为要查找的数n Output n的位置或-1 Sample Input 4 1 2 3 3 3 program ex1119; var a:array[1..100] of longint; i,t,m:integer; n:longint; begin readln(n); readln(m); for i:=1 to m do read(a[i]); i:=1; while (a[i]n) and (i=m) do inc(i) ; {找到要插入的合适的地方} t:=i; for i:=m downto t do a[i+1]:=a[i]; a[t]:=n; for i:=1 to m do write(a[i], ); write(a[m+1]); end. Sample Output 3 题1119：【入门】元素插入有序数组 给你一个整数n和一个数列，这个数列保证从小到大排列，现要求将这个整数n插入到数列中，使新的数列仍然从小到大排列。 Input 第一行一个整数n ：等待插入的数 第二行一个整数m ：数列中数的个数 第三行m个整数（空格隔开） Output 一行整数：新的数列（空格隔开） Sample Input 2 4 1 3 4 5 Sample Output 1 2 3 4 5 program ex1120; var a:array[1..100] of longint; i,t,x,n:integer; begin readln(n); for i:=1 to n do read(a[i]); read(x); t:=a[x]; for i:=x to n-1 do a[i]:=a[i+1]; a[n]:=t; for i:=1 to n-1 do write(a[i], ); write(a[n]); end. 题1120：【入门】数组元素的移动 数组元素的移动，把数组的第x个???置的元素先保存起来，然后把x+1到n的元素，依次往前移一位，最后原来的第x个位置的元素放在最后 Input 有3行 第一行有一个整数n 第二行有n个整数 第三行有一个整数x Sample Output 2 3 4 5 6 7 8 1 Output 移动后的数组 Sample Input 8 1 2 3 4 5 6 7 8 1 题1121：【入门】数组元素的插入 在一个数组的第x个位置插入一个新的数y program ex1121; var a:array[1..11] of longint; {数组要多开一个空间} i,t,x,n:integer; y:longint; begin readln(n); for i:=1 to n do read(a[i]); readln(x); read