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

Question

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

Информатика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.