Заполнить массив случайными числами в количестве 20 штук. Найти сумму и произведение элементов массива.

var a: array[1 ... 20] of integer;

i: integer;

sum, proizv: integer;

begin

writeln ('Заполняем массив случайными числами');

randomize;

for i : = 1 to 20 do a[i] : = random (100);

writeln ('Находим сумму');

for i : = 1 to 20 do sum : = sum + a[i];

writeln ('Находим произведение');

proizv : = 1;

for i : = 1 to 20 do proizv : = proizv * a[i];

writeln ('Сумма', sum);

writeln ('Произведение', proizv);

end.