Используя генератор случайных чисел, заполнить массив размерностью 10 элементов числами из интервала [-20,+20] и найти произведение всех элементов массива

Question

Информатика

Македон

16 декабря, 11:14

Используя генератор случайных чисел, заполнить массив размерностью 10 элементов числами из интервала [-20,+20] и найти произведение всех элементов массива

+1

Ответы (1)

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

Корнейка · Answer 1

Var a:array[1 ... 10] of integer;

x, y, i, p:integer;

begin

randomize;

p:=1;

for i:=1 to 10 do

begin

a[i]:=random (20) ;

x:=random (3) ;

if x:=2 then a[i]:=a[i] * (-1) ;

p:=p*a[i];

write (a[i],' ')

end;

writeln;

writeln (p) ;

end.