您所在位置：主题：请帮忙看看我的作业对不对
wuyongyi
[专家分：0] 发布于 2007-11-29 21:23:00
题目一:以下程序段中的运行结果是？
for g:=1 to 3 do
begin
for h:=g+1 to 4
if va[g]>va[h] then
begin
mb:=va[g];va[g]:=va[h];
end;
write(va[g]);
end;
writeln(va[4]);
已知输入12 32 82 46 到数组 va中
我的答案是
4646
请问是否正确。
题目二：随机生成50个数据，并保存到数组中去，然后输出。
我的做法不知道问题出在哪里。
var s:array [1..50] of integer;
n:integer;
begin
for n:=1 to 50 do
begin
randomize;
s[n]:=130+trunc(21*random);
end;
for n:=1 to 50 do write(s[n]:4)
end.
for g:=1 to 3 do
begin
for h:=g+1 to 4
if va[g]>va[h] then
begin
mb:=va[g];va[g]:=va[h];
end;
write(va[g]);
end;
writeln(va[4]);
已知输入12 32 82 46 到数组 va中
我的答案是
4646
请问是否正确。
题目二：随机生成50个数据，并保存到数组中去，然后输出。
我的做法不知道问题出在哪里。
var s:array [1..50] of integer;
n:integer;
begin
for n:=1 to 50 do
begin
randomize;
s[n]:=130+trunc(21*random);
end;
for n:=1 to 50 do write(s[n]:4)
end.
