Отримання знань

дистанційна підтримка освіти школярів

• Відгуки

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

1 (1) 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ку уроків курсу

В системі: гості - (); користувачі - (0)