Question

Задан массив чисел. Замените каждое число суммой двух предыдущих.

Answer 1

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.

 

первые 2 числа не берутся так как перед ними нет 2 чисел