Salut, je me demandais comment pouvoir remplir un tableau automatiquement à partir d'une valeur initiale.

En temps normal, pour le remplir moi même je ferais quelque chose comme ça :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
var
tab1:array [1..20] of integer;
 
begin
      for i:=1 to 20 do
 
       begin
 
        writeln('Entrez une valeur comprise entre 1 et 100:');
         readln(tab1[i]);
       end;
 
end;
mais je n'arrive pas à voir comment faire pour qu'il se remplisse lui-même,
du genre tab1[1] serais égale a la valeur initiale et le reste serait +1.

Des conseils ?
Merci et bonne journée