编写自定义函数 代码:
function myfun(x: array of Integer):integer; var i:integer; begin result:=0; for i:=0 to Length(x)-1 do begin result:=result+x[i]; end; end;
过滤代码输入 代码:
myhz([r1,r2,r3,r4,r5])