salut
je veux afficher un tableau de châine de caractères après de l’avoir trier
j’ai essayer avec ce programme et je n’est pas réussi
program essai;
uses wincrt;
type
tab=array[1…100] of string; { quand j’écrit integer sa marche!}
var
t:tab;
i,l :integer;
procedure affiche({var} ta:tab;n:integer); { elle ne marche qu’avec le mot var!}
var
i:integer;
begin
writeln;
for i:=1 to n do
write(ta[i],’ ‘);
end;
begin
l:=3;
for i:=1 to l do
readln(t[i]);
writeln;
for i:=1 to l do
write(t[i],’ ');
affiche(t,l);
read(l);
end.
