Question

Sa se calculeze produsul elementelor negative dintr-un vector cu lungimea 12

Answer 1

var A:array[1..12] of real;
     i:integer;
function produs:real;
var result:real;
begin
result:=1;
for i:=1 to 12 do
 if A[i] < 0 then result := result * A[i];
produs:=result;
end;
begin
for i:=1 to 12 do
readln(A[i]);
writeln(produs);
end;