Из элементов с четными индексами вычесть второй элемент.(паскаль) помогите решить задачу
Из элементов с четными индексами вычесть второй элемент.(паскаль)
помогите решить задачу
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы