Программа ** паскаль 20) Заменить k-й элемент одномерного массива ** сумму всех его...

Question

Программа на паскаль
20) Заменить k-й элемент одномерного массива на сумму всех его элементов

Comments

Массив рандомно заполнить ?

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

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

begin

var mas:=ArrRandom(20,-99,99); mas.Println;

var k:=readinteger('k='); var h:=mas.Sum;

mas[k]:=h; mas.Println;

end.

---