kage1998
Program gt; var a:array[1..100]of integer; n,i,p:integer; begin read(n); {n-кол-во чисел в массиве} p:=1; for i:=1 to n do begin read(a[i]); {a[i]-элементы массивва} if(a[i]<0)then p:=p*a[i]; {p-произведение отрицательных элементов массива} end; writeln(p); end.
Answers & Comments
var a:array[1..100]of integer;
n,i,p:integer;
begin
read(n);
{n-кол-во чисел в массиве}
p:=1;
for i:=1 to n do
begin
read(a[i]);
{a[i]-элементы массивва}
if(a[i]<0)then p:=p*a[i];
{p-произведение отрицательных элементов массива}
end;
writeln(p);
end.