Pascal одномерный массив. Упорядочить каждые вторые ненулевые элементы последней четверти...

Question 1

Pascal одномерный массив. Упорядочить каждые вторые ненулевые элементы последней четверти одномерного массива по убыванию обратных значений

Question 2

Не знаю...

Question 3

хотя опять же округлять или откидать дробную часть)

Question 4

Выше я написал две возможные по логике формулы.

Question 5

Для 19 получается 4+4+4+7 или 5+5+5+4, но для 17 получится 4+4+4+5 или 5+5+5+2. В любом варианте последняя длина - не четверть

Question 6

Соотвественно , да

Question 7

Ещё и что-то профили сломались, кликнув на некоторых пользователей кидает 404 ошибку)

Question 8

Ну т.е. если длина не кратна 4, это порождает головную боль.

Question 9

Ну...мой профиль тоже обычно дает ошибку. Это криворукость здешних сайтописателей. Они некоторые символы кириллице в хэше некорректно заменили. Такова, к примеру, буква Э в моем нике.

Question 10

Понятно, а ещё постоянно почему-то с мобильной версии на полную кидает при переходе, когда я с телефона

Question 11

Не знаю. Мобильная версия (на мой взгляд) - это зло и я ее даже не видел. Знаю по отзывам, что глючная.

Question 12

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=36;
var a:=ArrRandom(n,-50,50); a.Println;
var n4:=n div 4;
var (s1,s2):=a.Select((v,i)->(v,i)).TakeLast(n4).Where(t->t[0]<>0)
.Slice(1,2).OrderByDescending(t->1/t[0]).UnZipTuple;
foreach var t in s1.ZipTuple(s2.Sorted) do a[t[1]]:=t[0];
a.Println
end.

Эникей_zn · Answer 1 · 2018-09-07T15:34:24+0000

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
var n:=36;
var a:=ArrRandom(n,-50,50); a.Println;
var n4:=n div 4;
var (s1,s2):=a.Select((v,i)->(v,i)).TakeLast(n4).Where(t->t[0]<>0)
.Slice(1,2).OrderByDescending(t->1/t[0]).UnZipTuple;
foreach var t in s1.ZipTuple(s2.Sorted) do a[t[1]]:=t[0];
a.Println
end.