Найти произведение отрицательных элементов массива из 10 случайных целых чисел от - 20 до 20.

Var a: array [1 ... 10] of integer; i: integer; mult: longint;

begin

randomize;

mult : = 1;

for i : = 1 to 10 do

a[i] : = random (40) - 20; {Заполнение случайным образом}

for i : = 1 to 10 do

write (a[i], ' ') ; {Написание массива (для контрольной проверки) }

for i : = 1 to 10 do

if a[i] < 0 then

mult : = mult * a[i];

writeln (mult) ;

end.