Programmation en pascal

Fermé
amar attila - 14 janv. 2012 à 17:08
zipe31 Messages postés 36316 Date d'inscription dimanche 7 novembre 2010 Statut Contributeur Dernière intervention 27 janvier 2021 - 14 janv. 2012 à 17:27
Bonjour,
voila un exercice en pascal :algorithme permettant d'éliminer les éléments nuls dans un vecteur Vn en les transformant vers la gauche
ex: 5002301 --> 5231000

ou est l'erreur? :

program liste;
uses wincrt;
const n=7;
type vec_t=array[1..n] of integer;
var v:vec_t; K,J,I:1..n+1; S:integer;
begin
I:=1; S:=0;
while I <= n-S do begin
for I:=1 to n do read(v[I]);
if v[I]=0 then begin
for k:=I to n-1 do begin
v[K]:=v[K+1];
v[n-S]:=0;
S:=S+1;
end;
end;
if v[I]<>0 then I:=I+1;

end;
for I:=1 to n do write(v[I]);
END.

2 réponses

zipe31 Messages postés 36316 Date d'inscription dimanche 7 novembre 2010 Statut Contributeur Dernière intervention 27 janvier 2021 6 545
14 janv. 2012 à 17:13
0
??? une réponse!!
0
zipe31 Messages postés 36316 Date d'inscription dimanche 7 novembre 2010 Statut Contributeur Dernière intervention 27 janvier 2021 6 545
14 janv. 2012 à 17:27
Je te l'ai donnée !
0