Создать массив из 10 элементов. заполнить его случайными числами от 0 до 9. посчитать сумму элементов.

Var  
a :array [1..10] of integer;
i :integer;
begin
randomize;
for i:=1 to 10 do
a[i]:= random(9);
end.