Паскаль вещественные числа

[Регааа]

Дан вектор В вещественных чисел. Вычислить произведение тех компонент этого вектора, которые стоят перед первой отрицательной компонентой.
Прошу помогите, да, наработок нет

[Вадим Мошев]

p:=1;
i:=1;

while a[i] > 0 do
	begin
		p:=p*a[i];
		inc(i)
	end;

[Serge_Bliznykov]

while a[i] > 0 do

я бы ещё подстраховался, что у нас i не вылетит за пределы массива (если в нём вообще отрицательных нет):

while (i<=n) and (a[i] > 0) do
...

[Вадим Мошев]

я бы ещё подстраховался, что у нас i не вылетит за пределы массива (если в нём вообще отрицательных нет):

Спасибо, что поправили. Мне почему-то подумалось, что цикл прекратится, когда массив закончится. Забылся.

[Регааа]

Спасибо вам^^