sample - array write.pas

来自「Jedi Code Library JCL JVCL 组件包 JCL+JVCL超」· PAS 代码 · 共 11 行

var
  A: array[1..1000] of integer;
  i: Integer;
begin
  for i := 1 to 1000 do
    A[i] := i;
  Result := 1;
  for i := 1 to 1000 do
    Result := Result + A[i];
end;