level 9
美好时光拖鞋💨
楼主
实现模拟彩票的程序设计：随机产生6个数字，与用户输入的数字进行比较，输它们相同的数字个数。
没用链表 运行不成 求看看问题再哪
var
s,y:array of integer;
i,a,j,n:integer;
begin
randomize;
for i:=1 to 6 do
begin
s[i]:=random(10);
end;
for j:=1 to 10 do
begin
read(y[j]);
end;
for i:=1 to 6 do begin
for j:=1 to 10 do
if s[i]=y[j] then a:=a+1;
end;
writeln(a);
readln;
end.
2014年12月03日 10点12分
1
没用链表 运行不成 求看看问题再哪
var
s,y:array of integer;
i,a,j,n:integer;
begin
randomize;
for i:=1 to 6 do
begin
s[i]:=random(10);
end;
for j:=1 to 10 do
begin
read(y[j]);
end;
for i:=1 to 6 do begin
for j:=1 to 10 do
if s[i]=y[j] then a:=a+1;
end;
writeln(a);
readln;
end.
