const
n = 10; //кол-во элементов в массиве
var
i, sum, proiz: longint;
a: array [1..n] of longint;
begin
sum:=0;
proiz:=1;
for i := 1 to n do
begin
a[i] := random(10)+1; //заполнение массива
write(a[i], ' '); //вывод
end;
writeln;
for i := 1 to n do
begin
sum := sum + a[i]; //сумма
proiz := proiz * a[i]; //произведение
end;
writeln('сумма ',sum);
writeln('произведение ',proiz);
end.