Cod sursa(job #338605)

Utilizator johnyJohny Deep johny Data 6 august 2009 12:12:21
Problema Secventa 3 Scor 30
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.56 kb
var n,l,u,j,i:longint;
    max,s1,s2,s:real;
    c,t:array[1..50000]of integer;
begin
assign(input,'secv3.in');reset(input);
assign(output,'secv3.out');rewrite(output);
readln(n,l,u);max:=-30000;

for i:=1 to n do read(c[i]);
readln;
for i:=1 to n do read(t[i]);

for j:=0 to n-1 do begin
    s1:=0;s2:=0;
    for i:=j+1 to j+u do begin
        s1:=s1+c[i];s2:=s2+t[i];
        if s2<>0 then
        s:=s1/s2;
        if (i-j+1>=l)and(i-j+1<=u) then
           if s>max then max:=s;
        end;
end;
writeln(max:0:2);
close(input);close(output);
end.