Заполнить массив А первыми Н натуральными числами, начиная с Х (ввести Х с клавиатуры).

Нужно заполнить массив последовательными натуральными числами, начиная с числа X.

То есть массив должен выглядеть так:

A[0] = X
A[1] = X + 1
A[2] = X + 2
...
A[N - 1] = X + N - 1

Например, если:

N = 5
X = 7

то массив будет:

7 8 9 10 11

Главная формула заполнения:

A[i] = X + i

для нумерации массива с нуля.

Пример программы на PascalABC.NET:

pascal
var
  A: array of integer;
  N, X, i: integer;

begin
  write('Введите N: ');
  readln(N);

  write('Введите X: ');
  readln(X);

  SetLength(A, N);

  for i := 0 to N - 1 do
    A[i] := X + i;

  writeln('Полученный массив:');

  for i := 0 to N - 1 do
    write(A[i], ' ');
end.

Если используется нумерация массива с единицы, тогда формула будет немного другой:

A[i] = X + i - 1

Пример для массива с индексами от 1 до N:

pascal
var
  A: array[1..100] of integer;
  N, X, i: integer;

begin
  write('Введите N: ');
  readln(N);

  write('Введите X: ');
  readln(X);

  for i := 1 to N do
    A[i] := X + i - 1;

  writeln('Полученный массив:');

  for i := 1 to N do
    write(A[i], ' ');
end.

Смысл решения простой: первый элемент равен X, а каждый следующий элемент на 1 больше предыдущего.