Question

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

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.