基础一维数组练习题与菲波那契数列、砝码称重编程挑战.pdfVIP

一、完善程序：

1.PROGRAMCHU；

VAR

I，J，F：INTEGER；

A：ARRAY[1..8]OFINTEGER；

BEGIN

FORI:=1TO8DO

BEGIN

F:=IMOD2；

IFF=0THENA[I]:=0

ELSEA[I]:=1；

END；

FORI:=1TO8DO

WRITE(A[I]，’’)；

END.

输出10101010

2.var

str:array[1..20]ofchar;

i:integer;

begin

fori:=1to20do

str[i]:=chr(64+i);

fori:=7to11do

ifstr[i]=Hthenstr[i-1]:=