Question

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

Answer 1

{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.