Даны действительные числа а1.......a17.Получить а11,a12....a17,a10,a9,...a1 паскаль

Question

Даны действительные числа а1.......a17.Получить а11,a12....a17,a10,a9,...a1
паскаль

Answer 1

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

begin
  var s:=ArrGen(17,i->real(i+1)); s.Println;
  (s[10:]+s[9::-1]).Println
end.

Пример
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
11 12 13 14 15 16 17 10 9 8 7 6 5 4 3 2 1

Comments

Спасибо,а можно полностью текс программы ?