Cod sursa(job #253699)

Utilizator ShadowHunterGhinea Razvan ShadowHunter Data 6 februarie 2009 11:25:54
Problema Caramizi Scor 45
Compilator fpc Status done
Runda Stelele Informaticii 2009, clasele 9-10, ziua 1 Marime 0.6 kb
var n,m,i,j,q,sum,max,x,max1,r,s:longint;
    c:array[1..1000000]of longint;
    f,g:text;
begin
assign(f,'caramizi.in');reset(f);
assign(g,'caramizi.out');rewrite(g);
readln(f,n,m);s:=0;
for i:=1 to n do begin
read(f,c[i]);
s:=s+c[i];
end;
for i:=1 to m do begin
read(f,x);
max:=s;
if max>x then max:=x;
q:=0;max1:=0;
while (max>0)and(q=0) do begin
sum:=0;
for j:=1 to n do if c[j]>=max then sum:=sum+max
else sum:=sum+c[j];
r:=sum - (sum mod max);
if r>max1 then max1:=r;
dec(max);
if max1>=n*max then q:=1;
if max1>=sum then q:=1;
end;
writeln(g,max1);
end;
close(f);
close(g);
end.