latency.pas

来自「PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料」· PAS 代码 · 共 25 行

program E3_1; {latency}
var t:array[1..10000] of byte;  {存放每个顾客的处理时间}
    s:longint;
    n,i,j:integer;
begin
 assign(input,'latency.in'); reset(input);
 readln(n);
 for i:=1 to n do read(t[i]);
 close(input);
 for i:=1 to n-1 do   {排序}
  for j:=i+1 to n do
   if t[j]<t[i] then  {后面的比前面的等待时间少则交换}
begin 
t[i]:=t[i]+t[j];
t[j]:=t[i]-t[j];
t[i]:=t[i]-t[j] 
end;
 s:=0;
 for i:=1 to n do  s:=s+(n+1-i)*t[i];  {求和，计算每个人的的等待时间之和}
 assign(output,'latency.out');
 rewrite(output);
 writeln(s); 
close(output);
end.