Turbo Pascal 13

Одномерные массивы

1. Заполнить массив Vec(n) квадратом индекса элемента.
2. Найти сумму четных элементов заданного случайным образом (значения элементов массива в диапазоне –10..10) массива Mas(10).
3. Дан массив Т. Найти количество нулевых элементов и вывести на экран их номера.
4. Поменять местами максимальный и минимальный элементы массива A(n). Элементами массива являются случайные числа в диапазоне от 0 до 100.
*. Дан массив А из n вещественных чисел. Вывести в порядке следования все отрицательные числа, а затем все положительные числа.