急求信息Pascal程序问题答案！！！！！

来源：百度知道 编辑：UC知道 时间：2024/06/14 10:13:56
1、program t04031(input,output);
var
i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do a[i]:=i+1;
for i:=1 to 10 do
begin
a[i]:=a[i]+1;
write(a[i]:3);
end; End.
运行结果为：_________________________
2、如下程序：
program t04032(output);
var k:integer;
a:array[1..5]of integer;
begin
for k:=1 to 5 do
a[k]:=2*k;
for k:=2 to 4 do
a[k]:=a[k+1]+a[k-1];
writeln(a[2], ‘ ,a[4]);
end.

运行结果为:_______________________
3、设a为一个一维数组，以下程序段运行结果为：________________。
a[1]:=1;
for i:=1 to 5 do
for j:=1 to 5 do
a[j]:=a[i]+1;
for i:=1 to 5 do
write(a[i]);
4、以下程序段输出结果为：_______________
for c:=1 to 10 do
begin
case c mod 4 of
0:ch[c] :=’a’;
1:ch[c]:=’b’;
2:ch[c]:=’c’;
3:ch[c]:=’d’;
end;
end;
for c:=10 down

1. 3 4 5 6 7 8 9 10 11 12
2. 8 26
3. 66666
4. c b a d c b a d c b

1.
for j:=1 to n-1 do
for i:=1 to n do
temp:=a[j];

a[i+1]:=a[j];

write(a[i]);

2. read(number[counter]);

Differences[counter]:=number[counter+1]-number[counter];
Write(Differences[counter]:10:3);
if counter mod 10 =0

1
var
n,i,j,k:integer;
begin
write(1:3);
for i:=2 to 100 do
begin
j:=0;
for k:=1 to i do
if (i mod k)=0 then inc(j);
if j<>2 then write(i:3);
end;
end.

2
var a:array[1..30]of integer;
x,y:array[1..10]of real;
i,j,m,n:integer;
begin
for i:=1 to 30 do
read(a[i]);
for i:=1 to 10 do
begin
x[i]:=0;