Информатика, опубликовано 2018-08-22 20:24:29 by Гость
Задан массив чисел. Замените каждое число суммой двух предыдущих.
Ответ оставил Гость
const n=5;
var a:array [1..n] of integer;
b,i:integer;
begin
for i:=1 to n do read(a[i]);
for i:=3 to n do
a[i]:=a[i-1]+a[i-2];
for i:=1 to n do write(a[i]);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.