Question

Программа в  Pascal ABC:
С клавиатуры вводится число n. Заполнить n элементов массива числами 2,4, 6, 8, 16, 32... и Вывести массив.


Заранее спасибо)  

Answer 1

var
    a: array of integer;
    n, i: integer;

begin
    ReadLn(n);
    a := new integer[n];
   
    for i := 0 to a.Length-1 do
    begin
        if i = 0 then
            a[i] := 2
        else
            a[i] := a[i - 1] * 2;
           
        Write(a[i], ' ');
    end;   
end.