Программа на паскаль 20) заменить k-й элемент одномерного - вопрос №852127620 от fefe228 07.11.2021 22:19

Question

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

fefe228 · 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-й элемент одномерного массива на сумму всех его элементов