Cod sursa(job #161125)

Utilizator AndreiDDiaconeasa Andrei AndreiD Data 17 martie 2008 17:22:05
Problema Bilute Scor 90
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.55 kb
var s,p,max,s1,z,w:int64;
a,b,c,q,v:array[1..33000] of int64;
f,g:text;
n,i,j:longint;
begin
assign(f,'bilute.in');reset(f);
assign(g,'bilute.out');rewrite(g);
read(f,n);
s:=0;
w:=0;
for i:=1 to n do begin
read(f,a[i],b[i]);
q[i]:=a[i]*b[i];
s:=s+q[i];
end;
for i:=1 to n do
c[i]:=c[i-1]+a[i];
for i:=n downto 1 do begin
v[i]:=v[i+1]+a[i];
w:=w+v[i];
end;
max:=20000000000;
s1:=s+w;
for i:=1 to n do begin
s1:=s1-q[i]-v[i];
if s1<max then begin
max:=s1;
p:=i;
end;
s1:=s1+c[i]+q[i];
end;
write(g,p,' ',max);
close(f);
close(g);
end.