Cod sursa(job #253901)

Utilizator ioalexno1Alexandru Bunget ioalexno1 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.