Ответы
Ответ дал:
0
// 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
// Внимание! Если программа не работает, обновите версию!
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
Ответ дал:
0
Спасибо,а можно полностью текс программы ?
Ответ дал:
0
А это абсолютно полная работающая программа. Или Вы считаете, что я пример руками набирал? )))
Ответ дал:
0
Вы бы лучше просто запустили программу и убедились.
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад