var k:array[1..10] of integer;

var s:real;

var i:integer;

begin

for i:=1 to 10 do begin

k[i]:=round(10*random+3);

s:=s+k[i];

end;

write('Сумма массива = ', s);

writeln

end.

Должно работать, проверьте.