Задача F Оплата Сегодня Али в местном магазине сделал покупку за C тенге. Он только…

Question

94

Задача F Оплата Сегодня Али в местном магазине сделал покупку за C тенге. Он только хотел расплатится и услышал отпродавца фразу «Без сдачи пожалуйста, молодой человек». У него есть всего N монет достоинств a1, a2, … , aN тенге. Определите, сможет ли он расплатится без сдачи.

в избранное ссылка

Знаете ответ?

ruland · Accepted Answer

34

ruland

31 марта 2023

Programesep; varinput,output: text; n,i,j,g,nm,ans,t: integer; ara: array[0… 1000] of integer; ar,arq: array[0… 1000] of integer; ts,sum,a: integer; beginassign (input,'f.in'); reset (input); assign (output,'f.out'); rewrite (output); readln (input,a,n); ans: =10000; for i: =1 ton do beginread (input,ar[i]); ts: =ts+2*ar[i]; end; if ts1 do beginsum: =sum-ar[g]*arq[g]; dec (nm,arq[g]); arq[g]: =0; dec (g); end; inc (arq[g]); sum: =sum+ar[g]; inc (nm); end; if sum=athen begin if nm1000 then writeln (output,'yes') else writeln (output, ans); end; close (output); close (input); end.