Salut je suis étudiant en 1ère année.
J'ai écrit un programme mais il ne me donne pas le bon résultat.
Le but de ce programme est d'INSERER UNE VALEUR VAL ENTIERE à LA POSITION K DUN VECTEUR T (décalage à droite).
Voici le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Program exo;
Var                 T : array [1..10] of integer;
                        N,i,k,val : integer;
Begin 
Read(n);
For i :=1 to n do
                         read(T[i]);
For i:=1 to n do 
                        write(T[i]);
read(k);read(val);
For i:=1 to k-1 do begin 
                                      T[i]:=T[i];
                            end;
T[k]:= val;
 
For i:= k+1 to n+1 do begin
                                            T[i]:=T[i+1];      	
                                   end;
 
For i:=1 to n+1 do 
                             Write(T[i]);
Readln;readln;
End.
D'apràs moi il est juste mais il ne me donne pas le bon résultat.
Merci de bien vouloir me répondre avant le vendredi merci.

Traduit du SMS en français par Alcatîz