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.
Должно работать, проверьте.
