const N = 10;
var i, j: integer;
    mi, ma: real;
    a: array [0..N] of real;
begin
     for i := 0 to N do
     begin
         a[i] := random(20);
         writeln('[', i, '] => ', a[i]);
     end;
     
     for i := 0 to N do
     begin
         if (a[i] > ma) then ma := a[i];
         if (a[i] < mi) then mi := a[i];
     end;
     
     for i := N downto N - 5 do
         a[i] := (mi + ma) / 2;
         
     writeln(mi, ' - ', ma);
         
     for i := 0 to N do
         writeln('[', i, '] => ', a[i]);
end.