Question

Задание 2. Заполните массив первыми N натуральными числами, начиная с X (значение X введите с клавиатуры). Например, заполнить массив 6 натуральными числами, начиная с 11. На экране (вывод) PasacalA[1]=11A[2]=12A[3]=13A[4]=14A[5]=15A[6]=16

Answer 1

// PascalABC.NET

begin

 var (n, x) := ReadInteger2('Введите N и X:');

 var a := ArrGen(n, x, p -> p + 1);

 for var i := 0 to a.High do

   $'A[{i+1}]={a[i]}'.Println

end.

Answer 2

Конечно, я могу помочь вам с этим заданием. Ниже приведен код на языке Pascal, который заполняет массив первыми N натуральными числами, начиная с заданного значения X, и выводит результат на экран:

pascalCopy code
program FillArray;
var
  X, N, i: Integer;
  PasacalA: array of Integer;

begin
  Write('Введите значение X: ');
  Readln(X);
  
  Write('Введите количество элементов N: ');
  Readln(N);
  
  SetLength(PasacalA, N);
  
  for i := 0 to N - 1 do
  begin
    PasacalA[i] := X + i;
  end;
  
  for i := 0 to N - 1 do
  begin
    Write('PasacalA[', i + 1, '] = ', PasacalA[i]);
    if i < N - 1 then
      Write('A');
  end;
  
  Writeln; // Перевод строки в конце вывода
end.

Программа запрашивает значение X и количество элементов N, затем создает массив PasacalA и заполняет его соответствующими числами. Затем она выводит элементы массива на экран в указанном формате.