Оставить программу в паскале: дан одномерный массив - вопрос №5135866 от lubvic77 22.03.2023 00:22

Question

Информатика: Оставить программу в паскале: дан одномерный массив заменить все чётные элементы массива нулём

lubvic77 · Answer

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,99);
a.Println;
for var i:=0 to a.Length-1 do
if Odd(i) then a[i]:=0;
a.Println
end.

Тестовое решение:
n= 15
86 25 63 95 28 78 30 41 26 3 52 30 46 74 84
86 0 63 0 28 0 30 0 26 0 52 0 46 0 84