95

Сегодня Али в местном магазине сделал покупку за С тенге

sasok2 27 июня 2022

Сегодня Али в местном магазине сделал покупку за С тенге. У него есть всего N монет достоинств а 1, а 2,… аN тенге. Определите, сможет ли он расплатится безсдачи

категория: информатика

48

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 to n dobeginread (input,ar[i]); ts: =ts+2*ar[i]; end; if ts1 do begin sum: =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=a then begin if nm1000 then writeln (output,'0') else writeln (output,ans); end; close (output); close (input); end.

пользователи выбрали этот ответ лучшим
Знаете другой ответ?

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...