Pjuklas

http://img14.imageshack.us/img14/5606/capturexb.jpg

Nebereik.

O papasakok kaip išsprendei. Kazickyje ir pats galvoju dalyvauti, bet žemaitijoje.

Ne padariau iki galo,tai yra šitam tinka,tačiau jeigu būtų dvi sekos,tai nėra dar padaryta,kad rastų ilgiausia.Lyg ir bandžiau,bet nesigavo :)

program Noname58;
 var l1,l2,b,pr,pab,i,j,n,x,a,k:integer;
     Skaic:array[1..100] of integer;
     F:Text;
     Test:boolean;

Begin
 Assign(F,'duomenys.txt');
 reset(F);
 readln(F,n);
 For i:=1 to n do
 Begin
   read(F,skaic[i]);
 end;
 test:=true;
 k:=0; b:=0; x:=0; a:=0;
 pab:=0; pr:=0; j:=0;

 For i:=2 to n-1 do
 Begin
 if test=false then begin {a:=0;} test:=true; {j:=0;}  end;
   if ((skaic[i-1] < skaic[i]) and (skaic[i] > skaic[i+1])) then
   Begin
   inc(j); if j=1 then a:=i-1;
   // if a=0 then a:=i-1;
   end else
   test:=false;
   if test=false then
    begin
      k:=n-1-a;
      if k>x then
      begin
        pr:=a;
        pab:=i-1;
      end;
    end;
 end;

 writeln(pr,' ',pab);

 For i:=pr to pab do
 Write(skaic[i],' ');

 Readln;
end.

Tai sekas gali įrašyti į masyvą, ir tada jas tiesiog palyginti.