我想制作一个随即抽取人的小程序;自己作出来了却不对。谁知道的的能告诉下错哪了了,谢谢。急。
program lianxi1;
var i,n,a:integer;
begin
readln(n);
randomize;
for i:=1 to ndo
a:=random(21)
writeln('随机产生的结果为');
for i:=1 to n do
begin
a:=random(23);
if a=0 then writeln;
if a=1 then writeln;
if a=2 then writeln;
if a=3 then writeln;
if a=4 then writeln;
if a=5 then writeln('张'>;
if a=6 then writeln;
if a=7 then writeln;
if a=8 then writeln;
if a=9 then writeln;
if a=10 then writeln;
if a=11 then writeln;
if a=12 then writeln;
if a=13 then writeln;
if a=14 then writeln;
if a=15 then writeln;
if a=16 then writeln;
if a=17 then writeln;
if a=18 then writeln;
if a=19 then writeln;
if a=20 then writeln;
if a=21 then writeln;
if a=22 then writeln;
end;
readln;
end.
你把当成()了,所以输出语句全错。改后程序如下:program lianxi1;var i,n,a:integer;beginassign(output,'in.out');rewrite(output);readln(n);randomize;for i:=1 to ndoa:=random(21);writeln('随机产生的结果为');for i:=1 to n dobegina:=random(23);if a=0 then writeln('汪');if a=1 then writeln('王');if a=2 then writeln('吕');if a=3 the