Решение задач на Pascal. Обработка одномерного массива

Постановка задачи: В одномерном числовом массиве осуществить циклический сдвиг элементов массива, расположенных между первым четным и последним максимальным, если они совпадают, то рассортировать все элементы по убыванию значений.


Код программы

Схема алгоритма