ПОМОГИТЕ ПОЖАЛУЙСТА,ДАЮ 30 БАЛЛОВ!Составьте программу ,которая формирует массив ,содержащий 12 случайных вещественных чисел ,принадлежащих промежутку от [-10;30] , и подсчитывает произведение всех отрицательных чисел. Вывод в столбец с тремя десятичными знаками.
var a:array[1..12] of real; i:integer; pr:real; begin randomize; pr:=1;for i:=1 to 12 do begin a:=random(41)*0.9-10; if (a < 0) then pr:=pr*a; end; writeln(pr:5:3) end.
