如果在PASCAL中用数组作形参则要新定义一种类型。
type ing:array[0..100] of longint;
procedure t:(a:ing);
var i:longint;
begin
for i:=1 to n do a[i]:=i;
end;
var n,i:longint;
a:ing;
begin
readln(n);
t(a);
for i:=1 to n-1 do write(a[i],' ');
writeln(a[n]);
end.
十分痛苦！！！！！
不知道
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024