Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
the longest sub-array
program podnizniza; var niz:array[1..100] of real; n,i,p,d,trp,trd:integer; begin writeln('Unesite broj elemenata niza: '); read(n); while (n<>0) do begin writeln('Unesite elemente niza: '); for i:=1 to n do read(niz[i]); p:=1;d:=1; for trp:=1 to n-1 do begin i:=trp; while (i<n) and (niz[i]<niz[i+1]) do i:=i+1; trd:=i-trp+1; if (trd>d) then begin d:=trd;p:=trp end end; writeln('Duzina podniza je : ',d); writeln('Najduzi odgovarajuci podniz je: '); for i:=p to p+d-1 do write(niz[i]:0:2,' '); writeln(); writeln('Unesite broj elemenata niza: '); read(n) end end.
run
|
edit
|
history
|
help
0
Pokemon2
jose messias de oliveira 600623130
Задачи на div и mod
calcular_sumatoria_N
Задача №3549. Замечательные числа - 5
Perkalian digit
B prethodnih B sledecih
444555666_final_version
MARCOS PAULO VALE DA MATA 600623116
test26