var a: array [1..100] of real;
  n1, j, k :integer;
   sum :real;
   aug: real;
   maz: real;

begin

  randomize;
  sum:=0;
  for n1:=1 to 100 do
  begin
    a[n1]:=random*85+15;
    write(a[n1]:8:2);
    sum:=sum + a[n1];
    end;
    writeln;

   aug := a[1];
  for n1 := 1 to 100 do
  if a[n1] > aug then
  aug := a[n1];


  for j := 1 to 100 do
  begin

  maz := a[j];
  for n1 := j to 100 do
  if a[n1] < maz then
  begin
  maz := a[n1]; k:=n1
  end;
   a[k]:= a[j];
   a[j]:=maz;
 end;
    for n1 := 1 to 100 do   write(a[n1]:8:2);






    writeln ('aug',aug:6:2);
    writeln ('maz',maz:6:2);
    writeln ('sum ',sum/100:6:2);







readln;
end.