Help информатика pascalabc.net уровень a. а) заполните все элементы массива значением x , введённым с клавиатуры. б) заполните массив первыми n натуральными числами, начиная с x (значение x введите с клавиатуры). уровень b. а) заполните массив натуральными числами в обратном порядке, начиная со значения x, введённого с клавиатуры. последний элемент должен быть равен x, предпоследний – x–1 и т.д. б) заполните массив степенями числа 2 (от 21 до 2n), так чтобы элемент с индексом i был равен 2i.
//Версия 3.3, сборка 1634 (14.02.2018)
// А,a
begin
ArrFill(ReadInteger('n='),ReadInteger('x=')).Println;
end.
// А,б
begin
var x:=ReadInteger('x=');
var a:=ArrGen(ReadInteger('n='),i->x+i); a.Println;
end.
// B,a
begin
var (x,n):=ReadInteger2('x,n=');
var a:=ArrGen(n,i->x-(n-1-i)); a.Println;
end.
// B,б
begin
ArrGen(ReadInteger('n='),i->2**(i+1)).Println;
end.