Calculate the sum of the elements of the one-dimensional array A (10).

var
number, sum_of_elements_in_array: integer;
arr: array [1..10] of integer;

begin
for number: = 1 to 10 do
begin
arr [number]: = random (100);
write (arr [number]: 5);
sum_of_elements_in_array: = sum_of_elements_in_array + arr [number];
end;
writeln ();
writeln (‘Sum of array elements:’, sum_of_elements_in_array);
end.