Question

Заполнить массив a первыми n натуральными числами, ничиная с x (ввести x с клавиатуры)

Answer 1

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
  var n:=ReadInteger('n=');
  var x:=ReadInteger('x=');
  var a:=x.Step.Take(n).ToArray; a.Println
end.

Тестовое решение:
n= 15
x= 27
27 28 29 30 31 32 33 34 35 36 37 38 39 40 41

Answer 2

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a:array[0..100] of integer;
  i,x, n: integer;

begin
  write('Введите значения x,n : ');
  readln(x,n);
  for i:=0 to n do begin
    a[i]:=x+i; write(a[i],' ');
  end;
end.

Тестовое решение:
Введите значения x, n : 5 10
5 6 7 8 9 10 11 12 13 14 15