Помогите оставить программу в Паскале: Дан одномерный массив заменить все чётные...

Question

Помогите оставить программу в Паскале:

Дан одномерный массив заменить все чётные элементы массива нулём

Comments

Четные - это с четными номерами в массиве или с четным значением элемента?

---

номерами

---

Тогда еще вопрос: это порядковые номера элементов в массиве, или его индексы? И если индексы. то какой индекс имеет первый элемент?

---

Проблемы в том, что в Вашем задании ДАН массив, т.е. подразумевается,что он описан и заполнен. А Вы не дали даже его описания. Приходится выпытывать...

---

это порядковый номер элемента

---

Ясно. Т.е. индекс массива неважен, главное - какой он стоит по порядку. Нулем заменяются по порядку второй, четвертый и т.д. элементы

---

да верно

Answer 1

// 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