Question

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

Answer 1

Var  ar: array[1..10000]of integer;
  i, n, x: integer;
begin
  write('Введите N:');
  read(n);
  write('Введите X:');
  read(x);
    for i := 1 to n do
     begin
      ar[i] := x;
      x:=x+1;
      write(ar[i], ' ');
    end;
end.

Answer 2

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

program FillArray;
var
  arr: array of Integer;
  N, X, i: Integer;
begin
  Write('Введите количество элементов массива (N): ');
  Readln(N);
  Write('Введите начальное значение (X): ');
  Readln(X);
  
  SetLength(arr, N);
  
  for i := 0 to N - 1 do
  begin
    arr[i] := X + i;
    Write(arr[i], ' ');
  end;
  
  Readln;
end.

В этой программе мы сначала объявляем переменные `arr` (массив), `N` (количество элементов) и `X` (начальное значение). Затем мы запрашиваем у пользователя значения `N` и `X` с помощью функции `Readln`.

Далее мы используем функцию `SetLength` для установки длины массива `arr` равной `N`. Затем мы используем цикл `for` для заполнения массива `arr` последовательными натуральными числами, начиная с `X`. Каждый элемент массива `arr` равен `X + i`, где `i` - индекс элемента в массиве. Мы также выводим каждый элемент массива на экран с помощью функции `Write`.

В конце программы мы используем функцию `Readln` для ожидания нажатия клавиши перед закрытием программы.

Примечание: Это только один из возможных способов решения задачи. В зависимости от требований и контекста, можно использовать и другие подходы.