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

Question

Информатика

Олимпиодора

21 сентября, 19:44

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

+5

Ответы (1)

Знаете ответ на вопрос?

Леонилла · 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.