<span>обилием возможностей для редактирования как текстового массива целиком, так и отдельных его частей.</span>
Ответ под номером 4, "Мой компьютер"
Спутник,невесомость,космос
2,56е+11
..................
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var k:=ReadInteger('k=')-1;
a[k]:=a[k].IsEven?0:1; a.Println
end.
<u>Пример</u>
n= 20
77 8 10 -7 -45 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59
k= 5
77 8 10 -7 1 55 -49 -89 28 55 -26 -28 -51 -61 -91 25 75 -18 33 -59