1. Сформируйте и выведите целочисленный массив содержащий N первых положительных четных (нечетных) чисел

2. Сформируйте и выведите целочисленный массив содержащий степени двойки от первой до 16-й: 2,4,8,16,32 ...

{1}

const

n = 10; {количество чисел}

d = true; {true - для четных, false - для нечетных}

var

a : array [1 ... n] of integer;

i : integer;

begin

if d then

a[1] : = 2

else

a[1] : = 1;

write (a[1],' ') ;

for i : = 2 to n do

begin

a[i] : = a[i-1] + 2;

write (a[i],' ')

end

end.

{2}

const

n = 16;

var

a : array [1 ... n] of integer;

i : integer;

begin

a[1] : = 2;

write (a[1],' ') ;

for i : = 2 to n do

begin

a[i] : = a[i-1] * 2;

write (a[i],' ')

end

end.