Контрольная, Программирование Pascal массивы

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