Одномерный массив, Произведение элементов массива Опции

[Atreides]

Попалась задача на одномерный массив:
Заполнить массив из 200 элементов случайным образом и посчитать произведение элементов до первого отрицательного.
Как такой рандом на отрицательные числа забить и подсчитать произведение?

[compiler]

как то так...

var
        ar:array[0..9] of integer;
        i, pr:integer;
begin     
        randomize;
        for i:=low(ar) to high(ar) do begin
                ar[i]:=random(10)-random(10);
                writeln(ar[i]);
        end; 
              
        i:=low(ar);
        pr:=1;
        while ( (ar[i]>=0 ) and (i<=high(ar))) do begin
                pr:=pr*ar[i];
                inc(i);
        end;
        writeln;
        writeln(pr); 
end. 

зыв случае, если первый элемент отрицательный, произведение= единица
ззы еще можна раскидать по процедурам

[Lapp]

                ar[i]:=random(10)-random(10);

- зачем это?
Вполне можно обойтись так:

                ar[i]:=random(20)-10;