Program S2;
Type
tab = array[1..30] Of string[5];
Var
t : tab;
n,s : integer;
//************************************
Procedure remplire(Var tab;Var n:integer);
Var
i : integer;
Begin
Repeat
writeln('Donner la taille du tableau: ');
readln(x);
Until (n In [2..30]);
For i:=1 To n Do
Begin
Repeat
write('donner la chaine n° ',i,': ');
readln(t[i]);
Until (length(t[i]) In [1..5]);
End;
End;
//************************************
Function somme(t:tab;n:integer) : integer;
Var
i,j,d,e,s : integer;
ch,ch1 : string[5];
Begin
s := 0;
d := 0;
For i:=1 To n Do
Begin
ch := t[i];
ch1 := '';
For j:=1 To length(ch) Do
If ch[j] In ['0'..'9'] Then
ch1 := ch1+ch[j];
If ch='' Then
d := 0
Else
val(ch1,d,e);
s := s+d;
End;
somme := s;
End;
//************************************
Procedure affiche(x:integer);
Begin
writeln('La somme des element du tableau t est: ',x);
End;
Begin
remplire(t,n);
s := somme(t,n);
affiche(s);
End.
Inscription à :
Publier les commentaires (Atom)
