Программа на паскаль 20) заменить k-й элемент - вопрос №852217820 от Tyyyooo 02.07.2022 23:30

Question

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

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