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

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] lt; 0 then mult := mult * a[i];
end;
for i := 1 to 20 do
write(a[i], ' ');
writeln;
writeln(mult);
end.

Валерий Чигадеев 2019-08-26 04:05:27

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

Судленков Виталя 2019-08-26 04:09:18

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

Галкина Кира 2019-08-26 04:14:32

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

Яна Базеспина 2019-08-26 04:20:07

var a:array [1..100,1..100] of Integer;n,p,m,i,j,s:integer;beginn:=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.

Максим Щетицкин 2019-08-26 04:26:19

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

Арина Мосалыгина 2019-08-26 04:34:50

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

Пантасенко Егор 2019-08-26 04:37:16

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

О проекте

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

Добро пожаловать!