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

благодарю

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

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

?!

примерно да

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.