Program S1;
Type
tab = array[1..25] Of integer;
Var
t : tab;
n,i : integer;
//***********************************
Procedure saisie(Var n:integer;Var t:tab);
Var
i : integer;
Begin
Repeat
writeln('n=');
readln(n);
Until (5<=n) And (n<=25) ;
For i:=1 To n Do
Repeat
writeln('T[',i,']=');
readln(t[i]);
Until (100<=t[i]) ;
End;
//***********************************
Function zigzag(nb:integer) : boolean ;
Var
k : integer;
ch : string;
verif : boolean;
Begin
str(nb,ch);
k := 1;
Repeat
k := k+1;
verif := ((ch[k-1]<ch[k])And(ch[k]>ch[k+1])) Or
((ch[k-1]>ch[k])And(ch[k]<ch[k+1]));
Until Not verif Or (k=length(ch)-1);
zigzag := verif ;
End;
//***********************************
Begin
saisie(n,t);
For i:=1 To n Do
If zigzag(t[i]) Then
writeln(t[i]);
End.
Inscription à :
Publier les commentaires (Atom)
