Задача "Сдача"

[k1r1ch]

В очередной раз прошу о помощи, так как не могу сдать задачу №407.
Выдает Wrong Answer на 11 тесте. Но я не могу найти ошибку, какие бы данные не вводил!

program ACMP_407;
const Max = 1000000000;
var
  N, V, i: longint;
  A: array [1..10] of longint;

function Min(A, B: longint): longint;
begin
  if A < B then Min := A else Min := B;
end;

function CalcChange(V: longint): longint;
var Minimal, i: longint;
begin
  Minimal := 0;
  if V <> 0 then
    begin
      Minimal := Max;
        for i := 1 to N do
  	  if V >= A[i] then
  	    Minimal := Min(CalcChange(V mod A[i]) + V div A[i], Minimal);
    end;
  CalcChange := Minimal;
end;	

begin
  Assign(Input, 'Input.txt'); Assign(Output, 'Output.txt');
  Reset(Input); Rewrite(Output);
  Read(N);
  for i := 1 to N do Read(A[i]);
  Read(V);
  V := CalcChange(V);
  if V >= Max then Write('-1') else Write(V);
end.

Да, и еще вопрос. Пока не было TLE, но вдруг будет. Можно ли как-то рассчитать, уложится ли решение в секунду, надо ли применять динамику или перебор пройдет?

[LeBron]

Советую переписать этот рекурсивный бред на нормальное (линейное) решение. Рассчитать - посмотреть на сложность алгоритма и ограничения, асимптотика если есть - то просто примерно посчитать количество операций.
З.Ы. нормальное решение - это решение через динамику. Асимптотика - асимптотическая оценка для функции f(x), которая определяет количество вычислений при данных ограничениях.

[kostan3]

const inf = 1000000000;
  MAXP = 1000000;

type
  int = longint;

var
  ans: array [0..MAXP] of int;
  x: array [1..10] of int;
  n, k, i, j: int;

begin
  reset(input,'input.txt');
  rewrite(output,'output.txt');

  read(n);
  assert((1 <= n) and (n <= 10));
  for i:=1 to n do
  begin
    read(x[i]);
    assert((1 <= x[i]) and (x[i] <= 2000));
  end;

  read(k);
  assert((1 <= k) and (k <= 1000000));
  for i:=1 to k do
  begin
    ans[i]:=inf;
    for j:=1 to n do
      if (i >= x[j]) and (ans[i - x[j]] + 1 < ans[i]) then
        ans[i]:=ans[i - x[j]] + 1;
  end;

  if (ans[k] >= inf) then
  begin
    writeln(-1);
    exit;
  end;
  writeln(ans[k]);
end.