[ Stevan_Chakic @ 09.06.2013. 18:44 ] @
Imam problem.Kad nadjem najveci podniz koji ima uzastopno paran pa neparan broj nakon pretrage nece da stampa taj niz. Test primjer: 2 3 5 4 8 6 7 8 11 22 31 45 ,najduzi je boldovani podniz. Evo koda: Code: program naizmjenicno; type niz=array[1..50]of integer; var n,p,k,i:integer; x:niz; procedure unos(var n:integer;var x:niz); var i:integer; begin writeln('Unesite broj clanova niza:'); readln(n); writeln('Unesite clanove niza:'); for i:=1 to n do begin write('x[',i,']='); readln(x[i]); end; end; procedure stampa(n:integer;x:niz); var i:integer; begin for i:=1 to n-1 do write(x[i],','); write(x[n],'.'); end; procedure trazi(n:integer;x:niz;var p,k:integer); var max,j,i:integer; begin p:=1; k:=1; j:=1; max:=1; i:=1; while(j<=n) do begin j:=i+1; while(j<=n)and((x[j]+x[j-1])mod 2=1)do j:=j+1; if(j-i>max) then begin max:=j-i; p:=i; k:=j-1; i:=j; end; end; end; begin unos(n,x); stampa(n,x); trazi(n,x,p,k); for i:=p to k-1 do write(x[i],','); writeln(x[k],'.'); readln(); end. [Ovu poruku je menjao Stevan_Chakic dana 10.06.2013. u 00:13 GMT+1] [Ovu poruku je menjao Stevan_Chakic dana 10.06.2013. u 12:02 GMT+1] |