FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
ramona23 pe Simpatie.ro
Femeie
24 ani
Bucuresti
cauta Barbat
24 - 52 ani
FORUM / Forum Nou / 4  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
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.
pus acum 18 ani
   
Pagini: 1  

Mergi la