Question

найти произведение всех элементов массива целых чисел меньших 0 размер массива равен-10

Answer 1

Program n1;
Uses Crt;
var a:array[1..10] of integer;
 s,i: integer;
begin
for i:=1 to 10 do  begin
a[i]:=random(11)-5;
writeln(a[i]:4);
end;           
s:=1;
for i:=1 to 10 do
if (a[i]<0) then s:=s*a[i];
writeln('Proizvedenie vseh otricat chisel: ', s);
end.