30 ! составьте программу ,которая формирует массив ,содержащий 12 случайных вещественных чисел ,принадлежащих промежутку от [-10; 30] , и подсчитывает произведение всех отрицательных чисел. вывод в столбец с тремя десятичными знаками.
Uses crt; var a:array[1..12] of real; x:integer; p:real; begin randomize; p:=1; for x:=1 to 12 do begin a[x]:=random(41)*(random(10)/5)-10; writeln('a[',x,']:',a[x]); if a[x]<0 then p:=p*a[x]; end; writeln; writeln(p:6:3); end.
Системный блок... Самое сокровенное что у нас есть. В нем мы держим большое количество информации, с него мы общаемся с другими людьми, играем в игры, пишем сочинения и многое другое Жизнь его, конечно нелегка, даже очень нелегка... Каждый день мы включаем и работаем на нем, каждый день! С утра до ночи, с ночи до утра! И кого -то иногда, а у кого - то он перетруждается... Да, именно перетруждается. И тогда он отправляется в сервис, а иногда хозяева сами его чинят. И когда он чинится, он опять начинает работать, как окаянный. Не хотел бы я оказаться на его месте. И поэтому, зная про его тяжелую долю, нужно относиться к нему бережно: чистить его ( хотя бы раз в месяц), вовремя заменять термопасту и т.д.
a:array[1..12] of real;
i:integer;
pr:real;
begin
randomize;
pr:=1;for i:=1 to 12 do begin
a[i]:=random(41)*0.9-10;
if (a[i] < 0) then
pr:=pr*a[i];
end;
writeln(pr:5:3)
end.