ユーザーからデータを読み取った後、x配列を一定にする方法はありますか?値がユーザー(例:y)から読み取られた後、変数を変更できないようにする方法はありますか?
program hmm;
uses crt;
var
i, y: word;
x: array of word;
begin
readln(y);
y:=y-1;
SetLength(x,y);
for i := 0 to y do begin
read(x[i]);
end;
readkey;
end.
yを一定にするために、このようなことを試しましたが、機能しません。yは0に設定されます。
program hmm;
uses crt;
var
i: word;
x: array of word;
const
{$J+}
y:word = 0;
{$J-}
begin
{$J+}
readln(y);
y:=y-1;
{$J-}
y:=0;
SetLength(x,y);
for i := 0 to y do begin
read(x[i]);
end;
readkey;
end.
手伝ってくれてありがとう。