Заполнить массив случайными числами в количестве 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.