Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
благодарю
Ответ дал:
0
Элементы с четными индексами разделить на второй, а с нечетными – умножить на первый элемент.
Ответ дал:
0
а данная задача примерно так же решается
Ответ дал:
0
?!
Ответ дал:
0
примерно да
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад