Tin học Quy hoạch động

[Deathheart]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Hãy viết ct nhập vào 1 mảng có n phần tử. Hãy tính tổng lớn nhất mà các phần tử trong mảng tạo ra mà nhỏ hơn k.
VD nhập vào: n=4,k=13 và dãy 3 4 7 12 thì xuất ra là 12

 

[nguyen tran thanh nha]

var i,n,k,j:longint;
    a,t,d:array[0..100]  of longint;
    f,g:text;
begin
      assign(f,'tong.inp');reset(f);
      assign(g,'tong.out');rewrite(g);
      readln(f,n,k);
      for i:=1 to n do read(f,a[i]);
      t[0]:=1;   d[0]:=1;  k:=k-1;
      for i:=1 to n do
      begin
            for j:=0 to k-a[i] do
                if t[j]<>0 then d[j+a[i]]:=1;
            t:=d;
      end;
      while t[k]=0 do k:=k-1;
      write(g,k);
      close(f);
      close(g);
end.