Помогите!!!!

[Вероникаа]

Помогите решить две задачи очень важно!!
1)Решить с помощью сортировки шелла:3 2 5 4 7 0 1 6
2) Дан целочисленный массив A размера N(≤15). Переписать в новый
целочисленный массив B все элементы с порядковыми номерами, кратны-ми трем(3, 6, …), и вывести размер полученного массива B и его содер-жимое. Условный оператор не использовать.
Буду очень благодарна

2.При создание новых тем запрещено:

2.1 Создавать темы с названиями, которые не отражают смысл сообщения, пример - "Help!!!", "Памагите", "тону, спасите!", "а что это вы тут делаете?" и т.д.
Администратор и Модераторы имеют право переименовать закрыть и удалить тему, при этом могут поставить штраф - "№1 Флуд".

[VIK_aka_TOR]

1 одина из тем на форуме по поводу сортировки Шелла

2.
Динамические массивы вы наверняка не учили, так что изначально статические. А с размерностью 15, В с размерностью 5 (15 делим на 3 нацело)

объявление переменных 
....
ввод N  и массива А
....
i := 3;
k:= 1;
while i <= N do
begin
b[k] := a[i];
k := k + 1; // или inc(k);
i := i + 3; // или inc(i, 3);
end;
....
вывод массива В

[Аватар]

Можно и циклом for

for k:=1 to N div 3 do b[k]:=a[k*3];