Program S4;
Type
tab = array[1..30] Of string;
Var
T : tab ;
n : integer;
//***************************
Procedure saisie (Var T:tab ; Var n:integer);
Var
i : integer;
Begin
Repeat
writeln('donner un entier');
readln(n);
Until n In [5..30];
For i:=1 To n Do
Begin
writeln('donner l element n° ',i);
readln(T[i]);
End;
End;
//***************************
Procedure Elim ( Var T:tab ; n:integer);
Var
i,j : integer;
x,ch : string;
Begin
For i:=1 To n Do
Begin
x := T[i];
ch := '';
For j:=1 To length(x) Do
If x[j] In ['A'..'Z','a'..'z'] Then
ch := ch+x[j];
T[i] := ch;
End;
End;
//***************************
Procedure Affiche ( T:tab ; n:integer);
Var
i : integer;
Begin
For i:=1 To n Do
If T[i]<>'' Then
writeln(i,' ',T[i]);
End;
//***************************
Begin
saisie(T,N);
Elim(T,N);
Affiche(T,N);
End.
Inscription à :
Publier les commentaires (Atom)
