Помогите безотлагательно!!Заполнить массив A первыми N естественными числами, ничиная с X

Помогите безотлагательно!!
Заполнить массив A первыми N естественными числами, ничиная с X (ввести X с клавиатуры)

Задать свой вопрос
2 ответа
// 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
//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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт