begin
var R := SeqRandomReal(ReadInteger('n='), -50, 50)
.Select(t -> Round(t, 2)).ToArray;
R.Println;
var imin := R.IndexMin;
var Q := R.Select(t -> t * R[imin]).ToArray;
Q.Println; // если надо
R[imin] := Q.Average;
R.Println
end.
Примерn= 7
30.94 -31.83 41.85 -42.56 34.33 19.38 1.88
-1316.8064 1354.6848 -1781.136 1811.3536 -1461.0848 -824.8128 -80.0128
30.94 -31.83 41.85 -328.2592 34.33 19.38 1.88
чево это что там написано