Cod sursa(job #67721)

Utilizator MDanFMI - Dan Moldovan MDan Data 25 iunie 2007 13:40:30
Problema Secventa Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.34 kb
Raporteaza aceasta sursa 
var a:array [0..500000] of integer;
    n,k,i,start:longint;
    f,g:text;
begin
assign (f,'secventa.in');
assign (g,'secventa.out');
reset(f);
rewrite (g);
readln (f,n,k);
for i:=1 to n do
read(f,a[i]);
for i:=n-k+1 downto 1 do
begin
if a[i]>=a[start]
then
    start:=i;
end;

writeln (g,start,' ',start+k,' ',a[start]);

end.