Cod sursa(job #48172)

Utilizator raduzerRadu Zernoveanu raduzer Data 4 aprilie 2007 14:22:48
Problema Transport Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.29 kb
Raporteaza aceasta sursa 
var n,k,i,s,x:longint;
begin
     assign(input,'transport.in');
     reset(input);
     assign(output,'transport.out');
     rewrite(output);
     readln(n,k);
     for i:=1 to n do
     begin
          readln(x);
          s:=s+x;
     end;
     writeln(s div k);
close(output);
end.