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

помогите решить задачу

Question

Информатика

Валентик

30 декабря, 19:55

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

помогите решить задачу

+5

Ответы (1)

Знаете ответ на вопрос?

Орина · 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.

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

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

помогите решить задачу