Question

ИНФОРМАТИКА 9 КЛАСС! МАССИВЫ, ПАСКАЛЬ. СРОООЧНО!!!!
делать задания 3-5!

Answer 1

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

№3
begin
  var a:=ArrGen(ReadInteger('N='),e->e+1,ReadInteger('x=')-1);
  a.Println;
end.

Пример:
N= 10
x= 13
13 14 15 16 17 18 19 20 21 22

№4
begin
  var a:=ArrGen(ReadInteger('N='),e->e+1,ReadInteger('x=')-1).Reverse;
  a.Println;
end.

Пример
N= 10
x= 13
22 21 20 19 18 17 16 15 14 13

№5
begin
  var b:=ArrGen(ReadInteger('N='),1,1,(x,y)->x+y); b.Println
end.

Пример
N= 10
1 1 2 3 5 8 13 21 34 55