{****** Corrigé de l'exercice N°02 ********}
Program devoir_maison ;
Var
T :array[1..10] of integer ;
I,C: integer; {C c’est la position de la case à supprimer}
Begin
{Entrées}
Writeln('Donner les composantes du tableau ;') ;
For i:=1 to 10 do
Read(T[i]) ;
Writeln('Donner la position de la case à supprimer :') ;
Read(c) ;
{Traitement}
For i:=c to 9 do
T[i]:=T[i+1];
T[10]:=0;
{Sorties}
Writeln('Les éléments du tableau après la suppression de la case : ', C) ;
For i :=1 to 10 do
Write(T[i]:4) ; {:4 veut dire 4 espace entre les composantes}
End.