Question

const
  SIZE = 100000;

var
  n, i, j: LongInt;
  a: array[1..SIZE, 1..SIZE] of Integer;
begin
  Read(n);

  for i:= 1 to n do
    for j:= 1 to n do;
      a[i][j]:= 0;
end.

Answer 1

您的代码中有两个错误。我假设你永远不会在命令行上输入100000个值:-) 我把这个值改成了更真实的东西（不需要太多记忆......）

const
  SIZE = 100;

var
  n, i, j: integer;
  a: array[1..SIZE, 1..SIZE] of Integer;
begin
  Read(n);

  for i:= 1 to n do
    for j:= 1 to n do // here you had a semicolon!
      a[i][j]:= 0;
end.

除此之外，你的代码没有任何用处。它只是为数组赋值0并退出。

您还应检查输入（n）是否超过阵列的最大尺寸（n> SIZE）

Pascal运行时错误216在$ 004014AD

1 个答案: