输入3个数84.pptVIP

问题：;在计算机编程中，我们可以用数组（array）来表示这样的一组数据。 数组：是同类型的一组数据按一定关系排列成的表。数组中的每一个数据叫做一个数组元素，简称为元素。;一维数组;① type 数组类型名 =array [下标类型] of 基类型； var 变量名：类型标识符 例如：type t1=array[1..10] of integer; var x:t1;;3、数组元素的访问;4、数组赋值;在计算机的内存中，数组元素是依次存放的。一维数组的各个元素按其下标顺序依次排列。所以尽量不要定义不切实际大小的数组。 例如　var a:array[3..8] of integer; begin a[3]:=8; a[4]:=0; a[5]:=0; a[6]:=6; a[7]:=0; a[8]:=6; end.　　 则数组a在内存中具有这样的结构：;前面的问题可用下面的程序来解决： var a:array[1..100] of integer; s:real; i:integer; begin for i:=1 to 100 do readln(a[i]); s:=0; for i:=1 to 100 do s:=s+a[i]; s:=s/100; for i:=1 to 100 do if a[i]s then writeln(a[i]); end.;练习： 1、从键盘上输入10个整数，并逆序输出这10个数 2、从键盘输入10个整数，按升序（由小到大）进行排序，并显示结果。 3、从键盘接收10个正整数，将其中的奇数和偶数分别显示出来。例如，输入“12　8　19　5　4　6　7　2　11　3”，输出结果为“19　5　7　11　13”和“12　8　4　6　2” 4、借助一维数组，生成斐波那契数列的前20项。 ;答案：;2、输入10个整数，把这10个整数按从小到 大的顺序排列。;2、输入10个整数，把这10个整数从小到大排列。;2、var a:array[1..10] of integer; i,j,t:integer; begin for i:=1 to 10 do readln(a[i]); for i:=1 to 9 do for j:=i+1 to 10 do if a[i]a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; for i:=1 to 10 do write(a[i]:5); end.;　例2：输入一段以句号结尾的英文，统计并输出句中各字母出现的次数。假设句中没有大写字母。;　　var ch : char; n : array [a..z] of integer; k : 0..4; ;例3：从键盘输入n个整数a1,a2,…,ak,ak+1, …an 对其进行平移处理， 按ak+1, …,an ,a1,a2,…,ak,ak+1 的顺序输出，其中k是小于n的常数;　const n=10; k=3; var a:array[1..n] of integer; i,j,t:integer; begin writeln(input:); for i:=1 to n do read(a[i]); for i:=1 to k do begin t:=a[1]; for j:=2 to n do a[j-1]:=a[j]; a[n]:=t end; writeln(k); for j:=1 to n do write(a[j]:4) end.;3、var a:array[1..10] of integer; i:integer; begin for i:=1 to 10 do readln(a[i]); write(ji shu you:); for i:=1 to 10 do if a[i] mod 20 then write(a[i]:5); writeln;　　　 write(ou shu