Ответы на вопрос:
//pascalabc.net версия 3.2, сборка 1389 //если программа не запускается, то обновите версию uses system.linq; begin writeln('iii'); var a : = readarrinteger('документы', readinteger('n='; writeln; while a.any() do begin write(a[0], ' '); a.removeat(0); if not a.any then break; write(a.last, ' '); a.removeat(a.count - 1); if not a.any then break; var n : = 0; if a.count > 1 then n : = a.count div 2 - 1; write(a[n], ' '); a.removeat(n); end; end.
Популярно: Информатика
-
minskayai15.06.2021 10:42
-
знайка20808.07.2022 14:35
-
margaritrw02.11.2021 19:13
-
banilchik2603.04.2020 21:39
-
galina06087615.12.2021 19:13
-
yasmina14308.03.2022 19:54
-
Undina70511.05.2023 02:39
-
напарницавМоскве06.12.2021 02:38
-
anastasiya205622.09.2021 14:30
-
filipp00028.05.2020 21:04