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

Question

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

Answer 1

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.