Comment rendre la matrice dynamique constante?

Question

Il y a un moyen de rendre x array constant après que les données ont été lues par l'utilisateur? Il y a un moyen de rendre variable non modifiable après que sa valeur soit lue par l'utilisateur (par exemple 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. 

Pour y faire constante que j'ai essayé quelque chose comme cela, mais il ne fonctionnera pas - y sera défini comme 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. 

Merci pour l'aide.

Answer 1

Oui. Ne les modifiez pas dans votre code après avoir défini la valeur initiale.

À part ça, il n'y a aucun moyen. Un tableau dynamique par définition est modifiable, et ainsi est une variable - c'est pourquoi ils ont dynamique et variable comme noms.