Программа на паскаль 20) заменить k-й элемент одномерного - вопрос №852127620 от даша3171 25.04.2020 07:23

Question

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

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