Untitled

mail@pastecode.io avatar
unknown
plain_text
23 days ago
1.2 kB
1
Indexable
Never
var
  A: array of Integer;
  i, N, value: Integer;
begin
  // Ввод значения N с клавиатуры
  Write('Введите количество элементов N: ');
  Readln(N);

  // Установка длины массива
  SetLength(A, N);

  // Заполнение массива степенями числа 2
  value := 1;
  for i := N-1 downto 0 do
  begin
    A[i] := value;
    value := value * 2;
  end;
end.

вторая часть
var
  A: array of Integer;
  i, N, X, value: Integer;
begin
  // Ввод значения N с клавиатуры
  Write('Введите необходимое количество элементов N (нечетное): ');
  Readln(N);

  // Ввод значения X с клавиатуры
  Write('Введите значение Х: ');
  Readln(X);

  // Установка длины массива
  SetLength(A, N);

  // Заполнение массива
  value := X;
  for i := 0 to (N div 2)  do
  begin
    A[i] := value;
    value := value + 1;
  end;
  
  value := X-1;
  for i := (N div 2)+1 to N-1  do
  begin
    A[i] := value;
    value := value - 1;
  end;
end.
Leave a Comment