Cod sursa(job #253901)
| Utilizator | Data | 6 februarie 2009 13:30:38 | |
|---|---|---|---|
| Problema | Caramizi | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Stelele Informaticii 2009, clasele 9-10, ziua 1 | Marime | 0.56 kb |
program alex;
var f,g:text;
c:array[1..200000]of longint;
n,m,i,j,k,min,l:longint;
s,nr,t:int64;
begin
assign(g,'caramizi.out');rewrite(g);
assign(f,'caramizi.in');reset(f);
readln(f,n,m);
min:=9999999;
for i:=1 to n do
begin
read(f,c[i]);
if c[i]<min then min:=c[i];
s:=s+c[i];
end;
readln(f);
for i:=1 to m do
begin
read(f,l);
if l<min then writeln(g,l*n)
else begin
nr:=s-(s mod l);
writeln(g,nr);
end;
end;
close(f);
close(g);
end.