Решение задач на Pascal КемТИПП 1 курс

[Tonny]

Прошу отликнуться наших программистов ) Знаю что вы есть и решение задачек для первого курса вам не составит труда Помогите кто чем может )

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Задание: Дан одномерный числовой массив.

1.1 Элементы массива, не принадлежащие интервалу [a,b] расставить в порядке возрастания.
1.2 Вставить первое значение после максимального.
1.3 Удалить минимальный начальный элемент.
1.4 Сформировать новый массив из элементов больших среднего элемента исходного массива и расставить его эелементы в обратном порядке.

Найти:
1.5 Сумму элементов после послднего кратного заданному числу и среднее знаение элементов перед ним.
1.6 Количество элементов, стоящих на нечётных местах и принадлежащих интервалу [a,b].
1.7 Произведение элементов, небольших заданного числа и стоящих на чётных местах.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~

[megachuhancer]

1.1 Где нужно расставить элементы? В том же массиве, где они были? А принадлежащие интервалу оставить на местах?
1.2 Вставка - это копирование или перемещение?
и т.д. и т.п...

[DM_bite]

1.1 Проверяешь array[i] и array[i+1], если они принадлежат [a,b] и array[i]>array[i+1] поменять их местами( с помощью третьей переменной )
1.6 Проверяешь индекс(

if not (i mod 2 = 0)

) и принадлежность элемента массива к интервалу [a,b] и увеличиваешь переменную

inc(k)

. Предварительно - k=0. Все.
1.7 Аналогично 1.6, проверяешь:

if (array[i]<n) and (i mod 2 = 0)

и потом:

pr:= pr*array[i];

. Предварительно - pr:=1. Все

[Tonny]

Сообщение от megachuhancer

1.1 Где нужно расставить элементы? В том же массиве, где они были? А принадлежащие интервалу оставить на местах?
1.2 Вставка - это копирование или перемещение?
и т.д. и т.п...

1.1 Да, в том же массиве что и были. Принадлежащие оставить на местах.
1.2 Перемещение