найти сумму элементов целочисленного массива. помогите ...

Мария

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.

 

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