Program S3;
Type
tab = array[1..30] Of longint;
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
T[i] := random(1000)+1;
End;
//***************************
Procedure verifier (T:tab ; n:integer);
Var
p,i,s,x,j : integer;
v : boolean;
Begin
writeln('donner un entier p');
readln(p);
i := p;
s := 0;
x := 0;
v := false;
Repeat
i := i-1;
s := S+T[i];
x := x+1;
If s=T[p] Then
v := true;
Until (v=true) Or (i=1);
If v=true Then
For j:=(p-1) Downto (p-x) Do
Begin
writeln(T[j]);
End
Else
writeln('condition non vérifiée');
End;
//***************************
Begin
randomize;
saisie(T,N);
verifier(T,N);
End.
Inscription à :
Publier les commentaires (Atom)
