ПАСКАЛЬНапишите программку, которая наполняет массив из N частей в оборотном порядке

ПАСКАЛЬ
Напишите программку, которая наполняет массив из N частей в оборотном порядке поочередными естественными числами, начиная с последнего элемента, который должен быть равен X .

Входные данные
Входная строка содержит два целых числа: изначальное значение X и размер массива N , разделённые пробелом. Гарантируется, что 0 lt; N 10000 .

Выходные данные
Программка обязана вывести содержимое массива: убывающую последовательность из N последовательных естественных чисел; заключительный элемент должен быть равен X .

Образцы
входные данные
6 4
выходные данные
9 8 7 6

Задать свой вопрос
2 ответа

var a:array[1..10000] of integer;

x,n,i: integer;

begin

readln(x,n);

for i:=1 to n do a[i]:=x+n-i;

for i:=1 to n do write(a[i],' ');

writeln;

end.

Пример:

6 4

9 8 7 6

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (x, n) := ReadInteger2;

 var a := ArrGen(n, n + x - 1, t -gt; t - 1);

 a.Println

end.

6 4

9 8 7 6

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


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

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

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

Войти на сайт