16 lines
287 B
ObjectPascal
16 lines
287 B
ObjectPascal
var
|
|
f:array[0..1000] of longint;
|
|
a:array[1..1000] of longint;
|
|
m,i,v:longint;
|
|
begin
|
|
for i:=1 to 10 do read(a[i]);
|
|
readln(m);
|
|
fillchar(f,sizeof(f),$7f);
|
|
f[0]:=0;
|
|
for i:=1 to 10 do
|
|
for v:=i to m do
|
|
if f[v]>f[v-i]+a[i] then f[v]:=f[v-i]+a[i];
|
|
writeln(f[m]);
|
|
end.
|
|
|