3 Задачи в Turbo Pascal

[Egor199426]

Помогите решить:
Первая:
Задан массив (размерность 15) записей следующей структуры:
1) Номер Детали;
2) Наименование детали;
3) Партия детали данного наименования (Р);
4) Вес обрабатываемой детали (В);
5) Операционное время обработки детали (ОВ);

Определить время обработки партии детали каждого наименования.
Определить средний вес деталей данного цеха.


Вторая:
Задан вектор из А элементов. Рассортировать его на элементы четные и нечетные.

Третья:
Дана матрица размерностью M*N. Вставить К-й столбец с нулевыми значениями в матрицу. Обнулить в обновленном массиве отрицательные элементы.