Даны действительные числа .получить а11,,a10, паскаль - вопрос №84791451110 от лика03481 03.05.2023 17:24

Question

Информатика: Даны действительные числа .получить а11,,a10, паскаль

лика03481 · Answer

// 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