Pascal. Составить программу нахождения произведения всех элементов массива A[1..20],...

Question

Pascal. Составить программу нахождения произведения всех элементов массива A[1..20], содержащего случайные числа от 1 до 10

Answer 1

//fpc

const

MAX = 20;

var

A: array [1 .. MAX] of byte;

i: byte;

mult: extended;

BEGIN

randomize;

mult := 1;

for i := 1 to MAX do

begin

A[i] := random(10) + 1;

mult := mult * A[i];

end;

write('Произведение эл. массива = ');

writeln(mult:0:0);

END.