Пожалуйста, помогите с программой. Free Pascal
 

все компоненты вещественного вектора a(a1,a2,a3...an) ,начиная с первого по порядку положительной компоненты уменьшить на единицу . Помогите пожалуйста !

Слушайте, может быть хватит уже? Только что две подобные задачки были рассмотрены:
http://www.tehnari.ru/f43/t63702/
http://www.tehnari.ru/f41/t63715/
Совсем обленились господа студенты - пальцем лень шевельнуть! Всё за вас делай. Так и жизнь прожить рассчитываете, шарясь по форумам?
Извините, накипело.

извините , не посмотрела , не очень поняла что означает в одной из задач random*100 ? это мы сами "придумываем " ?

Пожалуйста, помогите с программой. Free Pascal
 

все отрицательные компоненты вещественного вектора а(а1,а2,а3..аn),заменить их квадратами ,а положительные кубами

Это означает заполнение массива случайными вещественными числами в диапазоне 0-100, чтобы не вводить с клавиатуры. Функция Random бывает двух видов:
1. Random(N), где N - натуральное число. Генерирует случайные целые числа в диапазоне от 0 до N-1.
2. Просто Random, без аргумента. Генерирует случайные вещественные дробные числа в диапазоне от 0 до 1.
В задаче требовался массив вещественных чисел, вот отсюда и такая команда.