---

Тут ви можете виконати завдання чи задати питання по змiсту цього уроку.

Михальов Володимир (StarRover) 2013-10-01 13:52:03 {Military} const max=10000; var f:array[1..max] of longint; n,l,lt,k,t:longint; function Zub(a,b,c:longint):boolean; begin if (((ac)or(a>b)and(b then Zub:=True else Zub:=False; end; begin Readln(n); for t:= 1 to n do Read(f[t]); k:=0; l:=0; lt:=0; if (n>2)and Zub(f[1],f[2],f[3]) then begin lt:=2; k:=2; end; for t:=3 to n do if Zub(f[t-2],f[t-1],f[t]) then begin lt:=lt+1; if lt>l then begin l:=lt; k:=t-l+1; end end else lt:=2; WriteLn(l); end.

Повернутися до уроку

Повернутися до перелiку уроків курсу