Найти произведение отрицательных элементов массива. (Delphi 7)

Question

Найти произведение отрицательных элементов массива. (Delphi 7)

Comments

я не уверен, что у тебя будет работать, т.к. Delphi вжизни не юзал, но попробую

Answer 1

Var a: array [1..20] of integer; mult: longint; i: integer;
begin
     randomize;
     mult := 1;
     for i := 1 to 20 do
     begin
          a[i] := random(20) - 10;
          if a[i] < 0 then mult := mult * a[i];
     end;
     for i := 1 to 20 do
         write(a[i], ' ');
     writeln;
     writeln(mult);
end.

Comments

в данном случае: mult это переменная или?

---

mult - это само произведение

---

если массив двухмерный, надо изменить

---

var a:array [1..100,1..100] of Integer;
n,p,m,i,j,s:integer;
begin
n:=StrToInt(edt1.Text);
m:=StrToInt(edt2.Text);
strngrd1.RowCount:=n;
strngrd1.ColCount:=m;
s:=0;
p:=1;
randomize;
for i:=1 to n do
begin
a[i,j]:=Random(10);
strngrd1.Cells[j-1,i-1]:=IntToStr(a[i]);
s:=p*a[i];
end;

for j:=1 to m do
if a[i] < 0 then
begin
p:=p*a[i];
end;

end.

---

что-то типо этого должно быть) но не то :(

---

у Вас при объявлении указано, что массив двухмерный, а это не так

---

спасибо за попытку помочь)