Сформировать массив: первый элемент равен A, второй равен B, каждый последующий - равен сумме всех предыдущих - PascalABC.NET
Формулировка задачи:
Помогите с задачей . Условие : даны числа А и В. Сформировать и вывести целочисленный массив размера N, первый элемент которого равен A, второй равен B , а каждый последующий элемент равен сумме всех предыдущих .
Исходные данные : N=5 , A=4 , B=0. Пример верного решения 4,0, 4, 8 ,16 . Спасибо ^_^
Решение задачи: «Сформировать массив: первый элемент равен A, второй равен B, каждый последующий - равен сумме всех предыдущих»
textual
Листинг программы
const
n=5;
a=4;
b=0;
var
i,s:integer;
c:array[1..n] of integer;
begin
c[1]:=a;c[2]:=b;s:=c[1];
for i:=3 to n do begin
s:=c[i-1]+s;
c[i]:=s;
end;
writeln('результат:',C);
end.