Напишите программу ** паскале найти минимальный элемент массива заменить все элементы...

Question

Напишите программу на паскале найти минимальный элемент массива заменить все элементы массива до минимального средним арифметическим элементов массива

Comments

Ты же сам просишь сделать за тебя какого хера ты начинаешь

Answer 1

PascalABC.NET 3.4.2, сборка 1857 от 05.11.2018

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

begin

 var a := SeqRandomReal(ReadInteger('n='), -10, 10)

     .Select(t -> real(Round(t, 2))).ToArray;

 a.Println;

 var (imin, avg) := (a.IndexMin, a.Average);

 a := a.Select((v, i)-> i < imin ? avg : a[i]).ToArray;

 a.Println

end.

---