Сформировать массив из 10 целочисленных элементов (от 1 до 15) и вывести на экран. Найти произведение всех элементов массива.

Var

a: array [1 ... 10] of byte;

p: integer;

i: byte;

begin

p : = 1;

writeln ('Массив:');

Randomize;

for i : = 1 to 10 do

begin

a[i] : = Random (15) + 1;

write (a[i]:4);

p : = p * a[i];

end;

writeln;

write ('Произведение = ', p:4);

end.