FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
ro_xy20
 | Femeie
24 ani
Bucuresti
cauta Barbat
24 - 45 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
Postari: 215
|
|
{tablou unidimensional d n elemente care contine nr intregi. sa se
realizeze un prg care detrmina secventa cea mai lunga de nr crescatoare.}
var a:array[1..100] of integer;
n,i,l, lmax,k:integer;
begin write('n='); readln(n);
for i:=1 to n do begin
write('a[',i,']='); readln(a[i]); end;
l:=1; lmax:=1; k:=1;
for i:=2 to n do
if a[i]>a[i-1] then begin l:=l+1;
if l>lmax then begin lmax:=l; k:=i;end;
end
else l:=1;
for i:=k-lmax+1 to k do write(a[i],' ');
readln; end.
|
|
| |
|
