Решите, пожалуйста, задачу в паскале (условия ** картинке, вариант б)

Question

Решите, пожалуйста, задачу в паскале (условия на картинке, вариант б)

---

Answer 1

Var a:array of integer;
i,p,n:integer;
begin
p:=1;
readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
read(a[i]);
p*=abs(a[i]);
end;
writeln(p);
end.

Comments

Спасибо