cosmy
Moderator
Inregistrat: acum 17 ani
Postari: 33
|
|
Pe prima linie a unui fisier se afla un numar natural nenul n, iar pe a 2-a linie a fisierului se afla un sir format din n numere intregi, despartite prin cate un spatiu. Stiind ca in fisier exista cel putin un numar strict pozitiv, se cere sa se afiseze lungimea maxima a unei secvente din sir care are proprietatea ca este formata doar din valori strict pozitive. Osecventa a unui sir este formata dintr-unul sau mai multe elemente aflate pe pozitii consecutive. Alegeti o metoda eficienta de rezolvare, atat ca timp de executare, cat si ca gestionare a memoriei. ex: 10 7 22 -3 10 3 14 0 21 10 8 se va afisa 3
var f:text; n,m,nr,i,j:integer; v:array[1..100] of integer; begin assign(f,'bac.txt');reset(f); readln(f,n); for i:=1 to n do read(f,v[i]); nr:=0; for i:=1 to n-1 do begin j:=i+1; m:=0; while (j<=n) and (v[j]>0) and (v[j+1]>0) do begin inc(j); inc(m); end; if nr<m then nr:=m; end; write(nr+1); end.
|
|