Информатика, опубликовано 2018-08-22 19:15:53 by Гость

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

Ответ оставил Гость

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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.