Указать тип величины С, если С := "65" *числовое-Вещественноетекстовое-Символьноечисловое-Целоетекстовое-Литерноечисловое-Натуральное​

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

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