数组练习

i,k:integer; begin k:=0;

for i:=-3 to 3 do

if i<0 then a[i]:=k+1 else a[i]:=k+2; writeln(a[3]-a[-3]) end. output:

2.var a:array[1..30] of longint;

n,i:integer; begin readln(n); a[1]:=0;a[2]:=1;

for i:=3 to n do a[i]:=a[i-1]+a[i-2]; for i:=1 to n do write(a[i]:8); writeln end. 输入：10 输出：

3.var

i,s,max:integer;a:array[1..10] of

integer;

begin

for i:=1 to 10 do read(a[i]); max:=a[1];s:=a[1]; for i:=2 to 10 do begin

if s<0 then s:=0; s:=s+a[i];

if s>max then max:=s end;

writeln(‘max=’,max) end.

输入:-2 13 –1 4 7 8 –1 –18 24 6 输出:max=

4.var a:array[\"a\"..\"z\"] of integer;

b:char; begin repeat read(b);

if (b>=\"a\")and(b<=\"z\") then a[b]:=a[b]+1; until b=\"?\";

for b:=\"a\" to \"z\" do

if a[b]<>0 then write(b,\":\end.

输入：how many apples are there on the table? 输出：

5.var a:array[1..10] of integer;

i,j,temp:integer; begin

for i:=1 to 10 do read(a[i]); for i:=1 to 9 do for j:=i+1 to 10 do if a[i]temp:=a[i];a[i]:=a[j];a[j]:=temp end;

for i:=1 to 10 do write(a[i]:8); writeln end.

输入：87 65 35 156 5 54 7 68 9 81 输出：

6.var a:array[0..1000] of integer;

k,i,n,j:integer; begin

readln(n,k); j:=0; while n>=k do begin

a[j]:=n mod k; n:=n div k; j:=j+1 end; a[j]:=n;

write(n,\

for i:=j downto 0 do write(a[i]:2); writeln end.

输入：1288 3 输出：

1、(15分)、某程序如下：键盘输入：10 5 34 6 8 9 23 35 78 6 10屏幕将输出哪些信息 var

i,j,n:integer;

x,y:array[1..100]of integer; Begin

readln(n);

for i:=1 to n do read(x[ i ]); for i:=1 to n-1 do for j:=i+1 to n do

if x[ i ]>x[ j ] then inc(y[ j ])

else if x[ i ]< x[ j ] then inc(y[ i ]); for i:=1 to n do write(y[ i ]:5); writeln; end.

3、program p2; var

a:array[0..8] of char; i:integer; begin

for i:=1 to 8 do a[ i ]:=char(i*2+ord(‘A’)); for i:=1 to 4 do begin

a[0]:=a[i]; a[i]:=a[9-i]; a[9-i]:=a[0];

end;

for i:=1 to 8 do write(a[ i ]); writeln; end. 输出：

4、program p3; var

n,i,x:integer;

d:array[0..10] of integer; begin

readln(n);

for i:=1 to n do begin

read(x);

d[x]:=d[x]+1; end;

d[0]:=0;

for i:=1 to 10 do

d [ i ]:=d [ i-1 ]+d [ i ]; for i:=1 to 10 do

if d [ i ]<>d [i-1] then writeln(i:3,d[i-1]+1:4);

end. 输入 20

3 4 6 1 7 6 9 4 10 7 6 6 3 3 8 7 9 10 6 7 输出：

1.program chu7_3；

var p，q，s，t：integer； begin

readln(p)；

for q:=p+1 to 2*p do begin t:=0；

s:=(p*q)mod(q-p)； if s=0 then begin

t:=p+q+(p*q)div(q-p)； write(t：4)； end； end； readln end.

输入：12 输出：

2.program chu7_2； var i，j，f：integer；

a：array[1..8]of integer； begin

for i:=1 to 8 do begin

f:=i mod 2；

if f=0 then a[i]:=0 else a[i]:=1； for j:=1 to i do

if f=0 then a[i]:=a[i]+j else a[i]:=a[i]*j end；

for i:=1 to 8 do write(a[i]：5)； end. 输出:

3.var a:array[1..6] of integer; i,j,p,t:integer; begin

for i:=1 to n do read(a[i]); for j:=1 to n-1 do begin p:=j;

for i:=j to n do

if a[i]< a[p] then p:=i; t:=a[p];a[p]:=a[j];a[j]:=t; end;

for i:=1 to n do begin

write(a[i]:2);

if i mod 3=0 then writeln; end end.

输入：7 2 5 1 9 4 输出：

4. var i,j,n:integer; begin

readln(n);

for i:=1 to 2*n do if i<=n then begin

write('':20-i);

for j:=1 to 2*i-1 do write('*'); for j:=1 to 2*(n-i) do write(' '); for j:=1 to 2*i-1 do write('*'); writeln end else begin

write('':20-2*n+i);

for j:=1 to 2*(2*n-i)-1 do write('*');

for j:=1 to 2*(i-n) do write(' '); for j:=1 to 2*(2*n-i)-1 do write('*');

writeln end end. 输入：5 输出：

下面的程序将n个学生的英文成绩从键盘输入，按0—59分、60—69分、70—79分、80—89分和90—100分分组统计人数。 const n=20;

var i，k：integer;

s：array[1..5]of integer; a：array[l..n]of integer; begin

for i:=1 to _____ do s[i]:=0;

for i:=1 to _____ do begin

_______________; if a[i]＞=90 then k:=1

else if a[i]＞=80 then k:=2 else if a[i]＞=70 then k:=3 else if a[i]＞=60 then k:=4 else k:=5; s[k]:=_______ end;

for i:=1 to 5 do write(a[i]:4); writeln end.

program calc1(input,output); var ch:char;

i,n,sum:integer; begin sum:=0; read(ch); case ch of

'A':for i:=4 to 6 do begin

read(n):

sum:=sum＋n end;

'B'：begin read(n);

for i:=1 to n do

begin read(n);sum:=sum＋n end; end; 'C':repeat

read(n);sum:=sum＋n until sum>10; 'D':begin read(n);

while n<=3 do

begin sum:=sum＋n;read(n) end end

end;(*end of case *) writeln(sum:4) end.

当程序运行

(1) 输入 A 4 1 2 3 4 5 6 7 8 (2) 输入 B 4 1 2 3 4 5 6 7 8 (3) 输入 C 4 1 2 3 4 5 6 7 8 (4) 输入 D 4 1 2 3 4 5 6 7 8

9时，其输出为_____________。9时，其输出为_____________。9时，其输出为_____________。9时，其输出为_____________。