Сформировать массив: первый элемент равен 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.

Оцени полезность:

5 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы