Question

Помогите плиз в Pascal
1. В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) среднее арифметическое отрицательных нечетных элементов массива;
2) сумму элементов массива, расположенных за вторым нечетным положительным элементом.
Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Новый массив не заводить.
2. Дана целочисленная прямоугольная матрица.
1) отсортировать столбцы матрицы по убыванию количества элементов меньших элементов побочной диагонали;
2) определить минимальный из максимальных элементов строк и его положение.

Answer 1

Первое задание.
Как понял, так и сделал.
Текст программы во вложении.