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

[Atreides]

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

[volvo]

- зачем это?

Вот ЭТО:

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

(при работе на TP и настройках по умолчанию) с большой степенью вероятности приведет к аварийному останову программы.

P.S. Кстати, первый вариант приведет к тому же результату.

Сообщение отредактировано: volvo - 24.12.2007 19:41

[Lapp]

(при работе на TP и настройках по умолчанию) с большой степенью вероятности приведет к аварийному останову программы.

Согласен, лучше явно преобразовать тип:

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