Pagini recente » Cod sursa (job #837026) | Cod sursa (job #1884219) | Cod sursa (job #1413976) | Istoria paginii utilizator/burcurici | Cod sursa (job #473759)
Cod sursa(job #473759)
program energii;
var e,c:array[0..1002] of longint;
w,g,i,j,m,s:longint;
f,g2:text;
begin
assign(f,'energii.in');reset(f);
assign(g2,'energii.out');rewrite(g2);
read(f,g,w);
e[0]:=0;c[0]:=0;e[g+1]:=0;c[g+1]:=0;
for i:=1 to g do
begin
read(f,e[i],c[i]);
c[i]:=c[i-1]+c[i];
e[i]:=e[i-1]+e[i];
end;
m:=10011002;
for i:=g downto 1 do
for j:=0 to g do
if (e[i]-e[j]>=w)and(c[i]-c[j]<m) then m:=c[i]-c[j];
writeln(g2,m);
close(f);
close(g2);
end.