Tâm mở một cửa hàng bán văn phòng phẩm. Trong ngày khai trương, để “mua may bán đắt”, Tâm quan niệm rằng khi khách hàng mua một sản phẩm nào đó thì phải trả đúng với số tiền của sản phẩm để Tâm không phải trả lại tiền thừa cho khách hàng. Nam là bạn thân của Tâm đến mua hàng. Nam hiện có N tờ tiền, mỗi tờ tiền M đều có giá trị khác nhau. Giả thiết rằng với số tiền của Nam hiện có đều có thể mua được một số sản phẩm trong cửa hàng. Yêu cầu: Vì Nam không quen với việc tính toán, em hãy giúp Nam tính xem với N tờ tiền như vậy thì Nam không thể mua sản phẩm có giá trị nhỏ nhất (Min) là bao nhiêu?  Dữ liệu vào: File văn bản BUY.INP - Dòng thứ nhất là số N (0 < N ≤ 100); - Dòng thứ hai có N tờ tiền, mỗi tờ tiền M cách nhau một khoảng trắng (0

1 câu trả lời

uses crt;
var a,b:array[1..1000]of longint; d:text; i,j,n,k,t,kt,ktt:longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
   readln(d,n);
   for i:=1 to n do read(d,a[i]);
   k:=0;
   for i:=1 to n do
      begin
         t:=0;
         for j:=i to n do
            begin
               t:=t+a[j];
               inc(k,3);
               b[k-2]:=i;
               b[k-1]:=i+j;
               b[k]:=t;
            end;
      end;
     // for i:=1 to k do write(b[i],';');  writeln;
      kt:=0;
      i:=0;
      repeat
         inc(i); ktt:=0;
         for j:=1 to k do If i=b[j] then ktt:=1;
         if ktt=0 then kt:=1;
      until kt=1;
      writeln(i);
close(d);
readln
end.

Câu hỏi trong lớp Xem thêm