Из элементов с четными индексами вычесть второй элемент.(паскаль) помогите решить задачу

Question

Из элементов с четными индексами вычесть второй элемент.(паскаль)
помогите решить задачу

Comments

Т.к. "второй" элемент тоже имеет чётный индекс, то из него тоже надо отнять себя?

---

думаю да

Answer 1

Const n = 10;
Var
  i  : Integer;
  m : array[1..n] of Integer;
Begin
  For i:=1 to n do Readln(m[i]);
  For i:=n div 2 downto 1 m[i*2]:=m[i*2]-m[2];
  For i:=1 to n do Writeln(i,'  ',m[i]);
end.

Comments

благодарю

---

Элементы с четными индексами разделить на второй, а с нечетными – умножить на первый элемент.

---

а данная задача примерно так же решается

---

?!

---

примерно да