-->
-->
Soit T un tableau contenant N entiers > 0, avec ( 5 <
N < 20)
On se propose d’afficher les sequences strictement
croissants ainsi que leur nombre
Exemple : Si T = | 3 | 12 | 41 | 5 | 5 | 8 | 10 |3 |
6 |
(3,12,41); (5); (5,8,10); (3,6).
program sequences;
uses wincrt;
var i,f,n:integer;
t:array [1..20]of integer;
begin
repeat
write('n=?');
readln(n);
until (n>=5) and (n<=20);
for i:=1 to n do
repeat
writeln('t[',i,']');
readln(t[i]);
until t[i] > 0;
write ('(',t[1]); f:=1;
for i:= 2 to n do
if t[i] > t[i-1] then
write(',' , t[i])
else
begin
write(');(' , t[i]);
f:=f+1;
end;
writeln(').');
write(f , ' sequences');
end.
