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

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

Question

Информатика

Петраха

1 января, 08:13

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

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

+2

Ответы (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.

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

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

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