Задан одномерный массив R(N) (N

Question

Задан одномерный массив R(N) (N<=60). Получить новый массив Q путём умножения элементов исходного массива R на его минимальный элемент. Вычислить среднее арифметическое полученного массива Q и записать его на место минимального элемента исходного массива R. Результат вывести на экран. Программу в паскале записать

Comments

ну как так то, я знаю 5 разных языков, но они все не паскали :(

Answer 1

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