Задан одномерный массив R(N) (Namp;lt;=60). Получить новый массив Qпутём умножения частей

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var R := SeqRandomReal(ReadInteger('n='), -50, 50)

     .Select(t -gt; Round(t, 2)).ToArray;

 R.Println;

 var imin := R.IndexMin;

 var Q := R.Select(t -gt; 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