water.pas

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

program water(input,output);
var i,j,k,p,s:longint;
    a:array[1..200,1..2] of longint;
begin
  assign(input,'water.in');
  assign(output,'water.out');
  reset(input);
  rewrite(output);
  readln(k);
  for i:=1 to k do
    begin read(a[i,1]);a[i,2]:=i;end;
  for i:=1 to k-1 do
    for j:=i+1 to k do
      if a[i,1]>a[j,1] then
        begin a[i,1]:=a[i,1]+a[j,1];a[j,1]:=a[i,1]-a[j,1];a[i,1]:=a[i,1]-a[j,1];
              p:=a[i,2];a[i,2]:=a[j,2];a[j,2]:=p;end;
  for i:=1 to k do
    if i<k then write(a[i,2],' ') else writeln(a[i,2]);
  p:=0;
  s:=a[1,1];
  for i:=2 to k do
    begin p:=p+s;s:=s+a[i,1];end;
  writeln(p/k:0:2);
  close(input);
  close(output)
end.