Программа на паскаль 20) заменить k-й элемент одномерного - вопрос №208521501 от innamatvijchuk 15.02.2021 02:17

Question

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

innamatvijchuk · Answer

//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.
Программа на паскаль 20) заменить k-й элемент одномерного массива на сумму всех его элементов

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