Cod sursa(job #67721)
| Utilizator |  FMI - 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 |
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.
