下一楼›：Procedure readdata(var int:arrtype);
var ch:char; i,k:integer;
Begin
rea ..(peter2008)
‹上一楼：program f;
type arraytype=array[1..10000] of integer;
var k,b,i:integer;
ch ..(peter2008)

--> 查看全部回帖(3)